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r_ MANUEL DE L'UTILISATEUR 



Introduction 



AMSTRAD CPC664 

Ordinateur a unite de disque integree 

Qui sommes-nous ? 

L'ordinateur AMSTRAD CPC664 suit la voie ouverte par son aine, le systeme CPC464. 
Le succes remporte nous a encourage a poursuivre dans la meme direction, en combinant 
les avantages du CPC464 et de l'unite de disque DDI1, auxquels nous avons ajoute de 
-nombreuses fonctions et ameliorations. Le produit qui en resulte, le CPC664, offre des 
performances et une profusion de fonctions encore inegalees a ce jour dans le monde de 
l'informatique individuelle. 

Derriere cet ordinateur, s'inscrit Tun des noms les plus prestigieux de Grande-Bretagne. 
Par ailleurs, le club d'utilisateurs AMSTRAD et son mensuel jouissent d'un^sokde repu- 
tation pour la qualite des informations qu'ils diffusent. 

Logiciels disponibles et compatibility 

Le CPC664 accepte la quasi-totalite des logiciels du CPC464, offrant ainsi a l'utilisateur 
un choix fantastique de logiciels immediatement disponibles, issus de la gamme etendue 
d'AMSOFT et de produits existants sur le marche. 

Une unite de disque, pourquoi ? 

De toute evidence, les disques sont en train de supplanter les cassettes pour le stockage 
des donnees et des programmes aupres de bon nombre d'utilisateurs, a l'exception des 
plus occasionnels. Or, la puissance et la convivialite du CPC464 ont rapidement 
transforme ces « occasionnels » en « inconditionnels » de l'informatique, qui opteront 
tout naturellement pour le dernier-ne d' AMSTRAD. 

Merci Digital Research... 

Jamais auparavant le systeme d'exploitation CP/M de Digital Research n'a ete accessible 
a un prix aussi modeste et nous attendons impatiemment les nouveaux logiciels mettant 
a profit'les 160 Ko disponibles sur chaque face de disque. 



Digital Research vient de creer le logiciel pedagogique le plus universel du marche : Dr. 
LOGO, dotant rexceptionnelle convivialite des graphiques « tortues » d'une puissance de 
traitement perfectionnee. Cest, de 1'avis general, la version disponible de LOGO la plus 
complete a Fheure actuelle. 



Merci Amstrad ! 

CP/M et Dr. LOGO vous sont gracieusement offerts pour tout achat d'un systeme 
CPC664. 



Quoi de neuf avec le CPC664 ? 

Le CPC664 a ete pour nous l'occasion d'ameliorer certaines fonctions et commandes 
BASIC du CPC464 et d'en ajouter d'autres : coloriage d'une zone graphique, trace de 
lignes pointillees, lecture de caracteres sur l'ecran, synchronisation des images animees, 
curseur commutable, etc. Les programmes utilisant ces nouvelles fonctions ne seront pas 
compatibles avec le CPC464. A l'inverse, la compatibilite ascendante est respectee, c'est- 
a-dire que tout programme ecrit sur le CPC464 pourra etre execute sur le CPC664. 



AMSOFT 

Un departement de 
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IMPORTANT 



Remarques relatives a l'installation 

1. Suivez les instructions dans la partie 1 du Cours Elementaire et utilisez une prise a 3 
broches pour le raccordement au secteur. 

2. Ne tentez jamais de brancher le systeme sur une autre tension que 220 V CA, 50 Hz. 

3. Aucune piece du systeme n'etant depannable par l'utilisateur, il est superflu et peu 
recommande de chercher a y acceder. Pour le depannage, faites toujours appel a un 
technicien qualifie. 

4. Pour plus de confort visuel, eloignez le moniteur le plus possible du clavier et reglez la 
luminosite de l'ecran en fonction de l'eclairage de la piece. La commande de brillance 
du moniteur doit etre reglee sur le niveau le plus faible possible. 

5. L'ordinateur doit se trouver en face du moniteur et le plus loin possible de ce dernier. 
Pour une fiabilite maximale, placez l'unite de disque a droite de l'ecran. Evitez d'instal- 
ler l'ordinateur a proximite d'une source d'interferences. 

6. Veillez a eloigner les disques et les unites de disque des champs magnetiques. 

7. Si vous disposez d'une deuxieme unite de disque, separez le cable plat d'interconnexion 
de l'unite du cable d'alimentation secteur. 

8. Veillez a degager les orifices de ventilation du systeme. 

9. Evitez d'entreposer votre materiel dans des endroits trop chauds, froids, humides ou 
generateurs de poussiere. 



Remarques relatives au fonctionnement 

(Ne vous inquietez pas si les termes techniques employes dans ce chapitre vous paraissent 
obscurs ; ils s'eclairciront au fur et a mesure que vous avancerez dans le manuel). 

1. N'oubliez jamais de retirer la disquette de son unite avant de mettre le systeme sous 
ou hors tension. Vous risqueriez de l'endommager et de perdre les programmes et don- 
nees qu'elle contient. 

2. Faites toujours une sauvegarde des disquettes contenant des programmes precieux. 
C'est le cas notamment de la disquette du systeme d'exploitation CP/M fournie avec 
le CPC664. En cas de perte ou d'alteration accidentelle des donnees d'une disquette, 
son remplacement pourrait s'averer des plus couteux. 

3. Pour eviter Tecrasement accidentel des donnees stockees sur la disquette du CP/M, 
veillez a ne pas recouvrir ses ouvertures de protection a Tecriture. 



4. Si vous utilisez deux unites de disquettes, l'unite AMSTRAD FD1, par exemple, met- 
tez toujours la deuxieme sous tension avant d'allumer l'ordinateur. 

5. Ne touchez pas la surface magnetique de la disquette. 

6. Ne retirez jamais la disquette en cours de lecture ou d'ecriture. 

7. Rappelez-vous que le formatage d'une disquette entraine l'effacement des donnees 
qu'elle contient. 

8. Les progiciels sur cassettes destines au systeme AMSTRAD CPC464 font parfois 
appel a Tespace memoire occupe par l'interface interne d'exploitation sur disques et 
sont done inutilisables sur le CPC664 equipe d'un lecteur de cassettes. Pour les proble- 
mes de compatibilite concernant les logiciels sur cassette, adressez-vous directement 
a AM SOFT. De toute fa^on, la plupart des logiciels AM SOFT sont disponibles sur 
disquettes, compatibles avec le systeme CPC664. 

9. Le depot legal de votre disquette CP/M (encodee d'une reference) ne permet son utili- 
sation que sur un seul systeme informatique. Vous n'etes done pas autorise a donner 
cette disquette a un autre utilisateur. A ce sujet, lisez attentivement le texte de depot 
legal situe a la fin du manuel 
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Chapitre 1 
Cours elementaire 



Partie 1 : Mise en marche 

L'ordinateur personnel AMSTRAD CPC664 peut fonctionner avec les 
ecrans suivants : 

1. AMSTRAD GT65, moniteur monochrome vert 

2. AMSTRAD CTM644, moniteur couleur 

3. AMSTRAD MP2, boitier d'adaptation et televiseur couleur muni de 
prise peritel. 



Connexion de 1'ordinateur a un moniteur 

(Si vous utilisez le CPC664 avec un boitier d'adaptation, passez directement au chapitre 
suivant). 

1. Assurez-vous que le moniteur n'est pas branche sur secteur. 

2. Connectez le cable sortant de Tavant du moniteur, equipe d'une fiche DIN a 6 broches, 
a la prise MONITOR situee a Tarriere de votre ordinateur. 

3. Connectez le cable sortant de l'avant du moniteur, equipe d'une fiche 5 V DC, a la 
prise 5 V DC, situee a l'arriere de votre ordinateur. 

4. Connectez le cable partant de Tarriere de Tordinateur, equipe d'une petite fiche 12 V 
CC, a la prise situee a Tavant du moniteur. 




Connexion de l'ordinateur a un boitier d'adaptation MP2 

Le MP2 doit se trouver a droite de l'ordinateur. 

1. Assurez-vous que le MP2 n'est pas branche sur secteur. 

2. Connectez la fiche DIN a 6 broches du MP2 a la prise MONITOR situee a l'arriere 
de l'ordinateur. 

3. Connectez la fiche 5 V CC du MP2 a la prise 5 V DC situee a l'arriere de l'ordinateur. 

4. Connectez la prise peritel male du MP2 a la prise peritel femelle de votre televiseur. 

5. Connectez la fiche 12 V CC du cable partant de l'arriere de l'ordinateur 12 V DC a la 
prise situee a l'arriere du MP2. 




Mise sous tension : systeme CPC664 et GT65/CTM644 

(Si vous utilisez votre CPC664 avec un boitier d'adaptation MP2, passez directement au 
chapitre suivant). 

Apres avoir suivi les instructions de connexion precedentes, inserez la fiche d'alimenta- 
tion du systeme dans la prise secteur et effectuez la mise sous tension. Appuyez alors sur 
le commutateur POWER situe en haut a droite du moniteur lorsque ce commutateur 
n'est pas enfonce, le systeme est hors tension. 

Mettez Tordinateur sous tension a l'aide du commutateur POWER situe a droite. 

Le voyant rouge, en haut et au centre du clavier, s'allume tandis que le texte ci-dessous 
s'affiche sur l'ecran du moniteur : 



Anstrad 64K Microcomputer <v2> 

§1984 Anstrad Consumer Electronics pic 
and Locomotive Software Lid. 

BASIC 1.1 

Ready 



Pour eviter de vous fatiguer les yeux inutilement, reglez la commande de brillance 
(BRIGHTNESS) de fa^on a obtenir des caracteres facilement lisibles sans eblouissement. 

Le bouton de reglage de luminosite BRIGHTNESS se trouve a l'avant du GT65 et a 
droite du CTM644. 

Si vous utilisez un moniteur monochrome GT65, vous devez regler le contraste et la 
hauteur de l'image a l'aide des boutons CONTRAST et VERTICAL HOLD, situes a la 
partie inferieure de sa face avant. 

Le contrasts doit etre regie au minimum, tout en permettant une lecture facile des carac- 
teres. 



Mise sous tension : CPC664 et boftier d'adaptation MP2 

Apres avoir suivi les procedures de connexion precedemment decrites, inserez la fiche 
d'alimentation du systeme dans la prise secteur. 

Mettez votre televiseur sous tension. 

Mettez l'ordinateur sous tension a l'aide du commutateur POWER situe sur la droite. 

Le voyant rouge situe au centre du clavier doit s'allumer tandis que l'ecran de votre televi- 
seur affiche : 



A* s trad 64K Microcomputer <v2> 

"©1984 Amstrad Consumer Electronics pic 
and Loconotiye Software Ltd. 

BASIC 1.1 

Ready 



Reglez votre televiseur de fagon a obtenir une image optimale. Les caracteres s'affichent 
en jaune sur fond bleu fonce. 



Autres connexions : 

Si vous desirez connecter a votre systeme d'autres peripheriques, tels que : 

* manettes de jeu 

* lecteur de cassettes 

* imprimante 

* unite de disque supplemental 

* enceintes/amplificateur externes 

* peripherique(s) d'extension 

...vous trouverez de plus amples informations a ce sujet dans la partie 2 du cours elemen- 
taire. 

En dernier ressort, verifiez que vous avez bien respecte les indications mentionnees au 
debut du manuel, dans la rubrique « IMPORTANT » : 

REMARQUES RELATIVES A ^INSTALLATION : 1, 2, 3, 4, 5, 6, 7, 8 
REMARQUES RELATIVES AU FONCTIONNEMENT : 1 



Partie 2 : Connexion de vos peripheriques 



Cette partie explique comment connecter au systeme CPC664 les divers peripheriques ou 
extensions. Vous trouverez des informations concernant Tutilisation de ces peripheriques 
dans les parties correspondantes du manuel. 

Manettes de jeu 

La manette de jeu AMSTRAD JY2 est un element supplemental dont vous pourrez, si 
vous le desirez, enrichir votre ordinateur CPC664. Utilisee notamment par certains pro- 
grammes de jeu, elle sert de manche a balai avec bouton de mise a feu. 

Connectez la fiche de la manette a la prise JOYSTICK de votre ordinateur. Vous pouvez 
utiliser deux manettes ; la seconde sera alors enfichee dans la prise de la premiere. 

II est egalement possible d'utiliser la manette de jeu JY1 avec le CPC664. 

Vous trouverez de plus amples informations sur les manettes de jeu plus loin dans le 
manuel. 

Lecteur/enregistreur de cassettes 

Les programmes peuvent etre charges et sauvegardes sur cassettes ou sur disques. Vous 
trouverez plus loin dans le manuel les commandes gerant ces pheripheriques. 

Pour connecter un lecteur/enregistreur de cassettes a votre CPC664, utilisez le cable 
AMSOFT CL1 ou un cable d'interconnexion standard equivalent. 

Inserez la fiche DIN a 5 broches du cable dans la prise TAPE de Tordinateur. 

Inserez l'extremite du cable bleu dans la prise REMOTE ou REM (telecommande) de 
votre lecteur/enregistreur de cassettes. 

Inserez l'extremite du cable rouge dans la prise MIC, COMPUTER IN ou INPUT 
(entree enregistrement) de votre lecteur/enregistreur. 

Inserez l'extremite du cable blanc dans la prise EAR (ecouteur), COMPUTER OUT (sor- 
tie ordinateur) ou OUTPUT (sortie) de votre lecteur/enregistreur. 



La qualite de transmission des donnees entre le CPC664 et la cassette depend largement 
des niveaux d'enregistrement (LEVEL) et de sortie (VOLUME) de votre lecteur/enre- 
gistreur. Si vous ne parvenez pas a charger ou sauvegarder vos programmes correcte- 
ment, faites varier les reglages jusqu'a obtenir la qualite souhaitee. 



Imprimante 

Le CPC664 peut fonctionner avec toute imprimante parallele compatible Centronics. 
Pour Pimprimante AMSTRAD DMP1, utilisez le cable qui Taccompagne. 

Si vous utilisez une autre imprimante compatible Centronics, procurez-vous le cable 
AMSOFTPL1. 

Connectez Textremite du cable equipee d'un connecteur femelle plat au connecteur male 
PRINTER situe a l'arriere de l'ordinateur. 

Connectez ensuite la fiche type Centronics de ce cable dans la prise situee a l'arriere de 
Timprimante. Si les deux cotes de la prise de Timprimante sont dotes d'agrafes de fixation, 
celles-ci doivent s'enclencher dans les ouvertures de part et d'autres de la fiche 
AMSTRAD. 

Le fonctionnement de Timprimante est decrit en detail plus loin dans le manuel. 



Unite de disquette supplemental (AMSTRAD FD1) 

Vous pouvez ajouter au systeme une seconde unite de disquette, AMSTRAD FD1. Les 
a vantages d'un systeme a deux unites de disquette apparaitront nettement aux habitues 
de CP/M, car de nombreux programmes sont prevus pour exploitation avec un disque 
programme insere dans une unite et un autre disque dans une seconde unite pour le 
stockage des fichiers de donnees. 

L'exploitation d'un programme sous CP/M necessite toujours son chargement a partir 
d'une disquette (en effet, le BASIC de la ROM n'est pas accessible). CP/M permet l'execu- 
tion de programmes excedant l'espace memoire disponible grace a une technique de 
recouvrement obligeant a decouper le programme en plusieurs fichiers. II est possible que 
le nombre de fichiers programme contenu sur la disquette soit tel qu'il ne reste plus de 
place disponible pour les donnees. 

Grace a la souplesse des utilitaires fournis avec le systeme CPC664 a disquette, vous pou- 
vez effectuer avec une seule unite de disquette toutes les manipulations de fichiers dont 
vous avez besoin : copie, effacement, etc. Quoi qu'il en soit, une seconde unite accelerera 
ces operations et reduira les risques de mauvaises manipulations. 

Pour connecter l'unite FD1 au CPC664, utilisez le cable AMSOFT DI2. 



Le connecteur le plus large du cable doit s'inserer dans le connecteur DISK DRIVE 2 
situe a l'arriere de l'ordinateur, tandis que le plus etroit vient s'inserer dans le connecteur 
situe a l'arriere de 1'unite FD1. 

N'OUBLIEZ PAS de retirer les disquettes des unites et de mettre le systeme hors tension 
avant de connecter ou deconnecter la deuxieme unite de disquette. Si vous effectuez des 
connexions alors que le systeme est sous tension, vous risquez d'alterer le programme 
stocke dans la memoire de l'ordinateur. Avant de vous attaquer aux connexions, pensez 
toujours a sauvegarder les programmes importants. 

Apres connexion de 1'unite FD1 a l'ordinateur, mettez-la sous tension, a l'aide de son 
commutateur arriere. Mettez ensuite sous tension le CPC664 a l'aide du commutateur 
situe a sa droite. Les voyants rouge et vert de 1'unite FD1 doivent alors s'allumer, indi- 
quant que 1'unite est prete a fonctionner. 

Le fonctionnement de la seconde unite de disquette est traite en detail dans une partie 
ulterieure du manuel. 



Enceintes/ amplificateur exterieur 

Pour apprecier pleinement les capacites sonores a trois canaux de votre ordinateur, vous 
pouvez le raccorder a un amplificateur muni d'enceintes. 

Le cable d'entree de ramplificateur doit se terminer par une fiche jack stereo de 3,5 mm, 
que vous insererez dans la prise STEREO de l'ordinateur. 

Voici les connexions de la fiche jack : 

Canal gauche - Extremite de la fiche 
Canal droit - Partie centrale de la fiche 
Masse electrique - Partie arriere de la fiche 

Le CPC664 emet alors des signaux de niveau constant par la sortie STEREO ; c'est a 
vous qu'il appartient de regler le volume sonore, la balance, les aigus et les graves a l'aide 
des commandes de votre amplificateur. 

Vous pouvez egalement utiliser un casque d'ecoute a forte impedance, dont le volume ne 
sera toutefois pas reglable a partir de la commande VOLUME de l'ordinateur. Quant 
aux casques a faible impedance comme ceux qui equipent generalement les chaines stereo, 
ils ne fonctionnent pas directement sur l'ordinateur. 

Une partie de ce manuel est d'ailleurs consacree a l'acheminement du son sur les differents 
canaux de sortie. 



Peripheriques d'extension 

Vous pouvez egalement connecter des peripheriques d'extension tels qu'interfaces serie, 
modems, crayons lumineux, cartes ROM, etc., sur le connecteur EXPANSION situe a 
l'arriere de l'ordinateur. 

Cette prise recevra aussi le synthetiseur de parole/amplificateur SSA2 AMSOFT. 

Le chapitre « Pour information... » detaille les connexions a la prise EXPANSION. 

Veriflez, pour finir, que vous avez bien suivi les avertissements figurant au debut de ce 
manuel, dans la rubrique « IMPORTANT » : 

REMARQUES RELATIVES A LTNSTALLATION : 6 et 7 
REMARQUES RELATIVES AU FONCTIONNEMENT : 4 et 8 



Partie 3 : Les disquettes 



Le CPC664 utilise des disquettes compactes de format 3 pouces. Nous vous conseillons 
fortement, pour une question de fiabilite, de n'utiliser que des CF-2 (Compact Floppy) 
d'AMSOFT. Cependant, les disquettes 3 pouces des principaux fabricants peuvent egale- 
ment convenir. 



Insertion 

Chaque face de la disquette peut etre utilisee separement. La disquette doit etre inseree 
avec son etiquette vers l'exterieur et la face que vous voulez utiliser dirigee vers le haut. 




Protection en ecriture 

Le coin gauche de chaque face d'une disquette porte une fleche montrant un trou muni 
d'un obturateur. Cest le trou de protection en ecriture qui vous empeche d'effacer ou 
d'ecrire sur des donnees qu'il est important de ne pas perdre. 

Syst&me 
de protection 




Quand le trou est ferme, l'ordinateur peut ecrire sur la disquette. Quand le trou est ouvert, 
rien ne peut etre ecrit, vous protegeant contre tout effacement accidentel de programmes 
importants. 

Les fabricants de disquettes emploient des procedes differents pour Touverture et la fer- 
meture des trous de protection. Pour la CF-2 d'AMSOFT, suivez les instructions ci-des- 
sous : 



Pour ouvrir le trou de protection, abaissez Tobturateur situe sur le coin gauche de la dis- 
quette. 



Trou de protection (OUVERT) 



Taquet 
OUVERT" 


J2 

i 


r^ 






( 








\ 


® 


Prot6$ 
l'§criti 


e contre 
j re 


> 



Taquet J_T1 
FERMe^ 




Non prot6g£ 

U 



Pour fermer le trou de protection, relevez 1' obturateur. 



Certains autres modeles utilisent un petit levier en plastique situe dans une fente du coin 
gauche. 




i H 



Trou de 

protection 

(FERME) 



Pour ouvrir le trou de protection sur ce genre de disquette, il faut faire glisser le levier 
vers le milieu de la disquette en utilisant la pointe d'un stylo, par exemple. 



Deplacer le 
levier vers le 
milieu du 
disque 





Trou de 
protection 

(OUVERT) 



Quelle que soit la procedure employee, il faut done ouvrir le trou de protection si vous 
voulez eviter de perdre vos programmes ou vos donnees en ecrivant par-dessus. 



IMPORTANT 

Assurez-vous toujours que les trous de protection de votre disquette systeme CP/M sont 
ouverts. 



Quand la disquette est a Pinterieur de 1' unite de disquette 

Sur le devant de Tunite de disquette se trouvent un voyant rouge et un bouton-poussoir 
pour rejection des disquettes. 




Voyant -L- ' ' t ^ ^ Bouton 

indicateur ^ m ' poussoir 



ji/ui/injinnrLTLJinnrLfuui 



Le voyant indicateur 

Ce petit voyant rouge a deux fonctions : Si une seule unite de disquette est connectee, le 
voyant indique que des donnees sont lues ou ecrites sur la disquette. Si deux unites de 
disquettes sont connectees, le voyant de Tunite B sera toujours allume, vous permettant 
ainsi d'identifier les unites rapidement. Cependant, lors d'une operation (lecture ou ecri- 
ture) de Funite A, le voyant de Tunite B doit s'eteindre. 



Le bouton-poussoir 

II vous permet d'ejecter la disquette de son unite. 

IMPORTANT 

1. TOUJOURS ENLEVER VOTRE DISQUETTE DE L'UNITE AVANT DALLU- 
MER OU DETEINDRE VOTRE SYSTEME. 

2. NE JAMAIS ESSAYER D'EJECTER UNE DISQUETTE PENDANT UNE OPE- 
RATION DE LECTURE OU DECRITURE SUR CETTE DISQUETTE, CE QUI 
POURRAIT ENTRAINER LA DESTRUCTION DES DONNEES S'Y TROU- 

VANT. 

3. LA DISQUETTE MAGNETIQUE EST PROTEGEE PAR UNE ENVELOPPE DE 
PLASTIQUE DUR. ATTENTION A NE PAS TOUCHER A LA DISQUETTE 
ELLE-MEME. 



Chapitre 1 Page 14 Cours elementaire 



Partie 4 : Informations prealables 



Avant de passer au chargement des logiciels et a la sauvegarde des programmes sur dis- 
quettes, attardons-nous sur le clavier. Ceux qui ont l'habitude des micro-ordinateurs peu- 
vent sauter cette partie. 

O O <d c> TOUCHES DE DEPLACEMENT DU CURSEUR 

Les grandes touches entourant la touche [COPY] servent a deplacer le curseur. Chaque 
touche deplace le curseur (petit rectangle plein) dans une direction qui lui est propre. 

Appuyez tour a tour sur chaque touche de deplacement et observez le deplacement du 
curseur. 



[ENTER] 

II y a deux touches bleues [ENTER] . L'une et 1'autre font entrer dans Tordinateur l'infor- 
mation que vous venez de taper. Apres avoir appuye sur la touche [ENTER], une ligne 
nouvelle commence sur l'ecran. Chaque instruction que vous tapez sur le clavier de Tordi- 
nateur doit etre suivie de la touche [ENTER]. 

A partir de maintenant, quand vous verrez [ENTER], cela voudra dire appuyez sur la 
touche [ENTER] apres chaque instruction ou ligne de programme. 



[DEL] 

Cette touche est utilisee pour effacer un caractere a gauche du curseur (par exemple une 
lettre ou un nombre) que vous ne voulez pas conserver. 

Tapez abed ; la lettre d se trouve a gauche du curseur. Si vou$ decidez que vous ne voulez 
pas de cette lettre, appuyez sur la touche [DEL] une fois et la lettre d disparait. Si vous 
continuez a appuyer sur cette touche [DEL], les lettres abc disparaitront aussi. 



[SHIFT] (passage en majuscules) 

II y a deux touches bleues [SHIFT]. Si vous appuyez sur Tune des deux et la maintenez 
appuyee pendant que vous tapez un autre caractere, une majuscule ou le symbole supe- 
rieur de la touche s'affiche sur l'ecran. 



Tapez la lettre e, puis appuyez sur [SHIFT] (en maintenant cette louche) et tapez sur la 
lettre e de nouveau. Sur l'ecran vous verrez : 

eE 

Tapez maintenant quelques espaces en maintenant la barre "'"P^™* * ppu ^ 
Essayez avec les touches du haul du clavier, au-dessus des lettres. Tapez le chiffre 2, puis 
appuyez sur [SHIFT] et tapez le chiffre 2 de nouveau. Vous obtenez sur 1 ecran : 

2" 

Vous pouvez maintenant voir ce qui arrive quand vous appuyez sur la touche [SHIFT] 
tout en tapant un caractere. Essayez en tapant chacune des touches, d abord toutes 
seules, puis en appuyant sur la touche [SHIFT] en meme temps. 

[CAPS LOCK] (verrouillage des majuscules) 

Cette touche a le meme effet que la touche [SHIFT], excepte qu'il suffit de la presser 
une fois Toutes les lettres seront affichees en majuscules, sauf les touches numenques qui 
resteront des chiffres. Appuyez sur [CAPS LOCK] puis tapez : 

abcdefl23456 

Sur l'ecran vous voyez : 

ABCDEF123456 

Et les chiffres ont ete tapes tels quels. Maintenant, si vous appuyez sur [SHIFT] en meme 
temps, vous aurez : 

abcdefl23456 

Pour revenir aux minuscules, appuyez de nouveau sur [CAPS LOCK]. 



Pour taper les majuscules et les symboles superieurs des touches sans avoir a presser 
continuellement sur [SHIFT], appuyez sur [CTRL], puis sur [CAPS LOCK]. Mainte- 
nant tapez : 

abcdef 1234S6 

Vous verrez apparaitre : 

ABCDEF !"#$'/.& 

II est egalement possible de taper des chiffres sur le pave numerique de droite du clavier. 

Si vous maintenez la touche [CTRL] enfoncee et appuyez une fois sur [CAPS LOCK], 
vous revenez a Tetat precedent, majuscules ou minuscules. Si vous etes toujours en majus- 
cules, appuyez sur [CAPS LOCK] une fois pour revenir en minuscules. 

[CLR] 

Cette touche sert a effacer un caractere qui se trouve sous le curseur. Tapez : 
ABCDEFGH. Le curseur est a droite du (H). Puis appuyez quatre fois sur le curseur 
gauche <?. Le curseur se superpose a la lettre E. Notez que la lettre E est toujours visible 
sous le curseur. Appuyez sur la touche [CLR] une fois et vous verrez que la lettre E a ete 
effacee et que les lettres FGH se sont deplacees d'une case vers la gauche tandis que la 
lettre F se trouve sous le curseur. Appuyez sur la touche [CLR] sans la lacher. Les lettres 
F, puis G et H disparaissent. 



[ESC] 

Cette touche bleue en haut du clavier, a gauche, permet de prendre la poudre 
d'ESCampette, autrement dit d'interrompre momentanement un programme en pressant 
la touche une fois et de le reprendre en tapant une autre touche, ou d'arreter complete- 
ment en appuyant encore une fois sur [ESC]. 

Appuyez maintenant deux fois de suite sur la touche [ESC]. L'ordinateur est a nouveau 
pret a accepter de nouvelles instructions. 



IMPORTANT 

Quand vous arrivez au bord droit de 1'ecran en tapant plus de 40 caracteres, le caractere 
suivant passe automatiquement a la ligne suivante. Cela veut dire qu'il NE FAUT PAS 
presser [ENTER], a 1'instar des habitues des machines a ecrire, qui tapent RETOUR ou 
ENVOI a la fin d'une ligne. 

L'ordinateur s'en charge automatiquement et reagit a un [ENTER] non prevu par un 
message d'erreur - (d'habitude SYNTAX ERROR) - soit immediatement, soit quand 
vous lancez l'execution du programme. 



Syntax Error (ou erreur de syntaxe) 

Si le message SYNTAX ERROR apparait sur 1'ecran, l'ordinateur vous dit qu'il ne com- 
prend pas une des instructions que vous avez tapees. Par exemple, si vous tapez : 

printt CENTER] 

...le message suivant apparait : 
Syntax error 

Car l'ordinateur ne connait pas la commande printt. 

Si vous vous trompez dans une ligne de programme comme : 

10 printt "abc" CENTER] 
...le message SYNTAX ERROR n'apparaitra que lors de l'execution du programme. 
Tapez : 

run CENTER] 

Cette commande ordonne l'execution du programme que vous venez d'entrer en 
memoire, 

Sur 1'ecran vous voyez : 

Syntax error in 10 
IBQrintt "abc" 



Ce message vous dit dans quelle ligne se trouve l'erreur et vous presente la ligne du pro- 
gramme avec le curseur-editeur afin que que vous puissiez corriger l'erreur. 

Appuyez sur le curseur droit cj> jusqu'a ce que le curseur soit au-dessus du t de printt ; 
pressez la touche [CLR] pour enlever le t superflu, puis pressez [ENTER] pour intro- 
duce la ligne correcte dans l'ordinateur. 

Tapez : 

run CENTER] 

...et vous verrez que l'ordinateur a accepte Instruction en affichant : 
abc 

Pour terminer, verifiez que vous avez bien respecte les avertissements figurant au debut 
du manuel, dans la rubrique « IMPORTANT » : 

REMARQUES RELATIVES A ^INSTALLATION : 4 et 5 
REMARQUES RELATIVES AU FONCTIONNEMENT : 1 



Partie 5 : Chargement des logiciels et des 
jeux... 

Bienvenue aux utilisateurs qui abordent directement cette partie ! 

Pour experimenter la vitesse de chargement des logiciels sur disquette, mettez le systeme 
sous tension et inserez la disquette CP/M dans l'unite, face 1 vers le haut. 

Tapez : 

run "rointime.dem" [ENTER] 

Au bout de quelques secondes, le programme est charge en memoire. Repondez a la ques- 
tion affichee a l'ecran, confirmant que vous utilisez bien un moniteur vert (tapez Y pour 
Oui et N pour Non). Vous verrez alors apparaitre une demonstration du jeu « Roland in 
Time ». Elle vous incitera peut-etre a acheter une copie du jeu... 

Apres cette demonstration, vous pouvez sortir du programme en appuyant sur la touche 
[ESC] tout en enfongant les touches [CTRL] et [SHIFT]. Vous reinitialisez ainsi votre 
systeme afin de lancer une nouvelle application sans avoir besoin d'enlever la disquette 
de son unite. 

Si le programme n'est pas charge, un message d'erreur vous indique Tanomalie : 

Drive A: Disc missing 
Retry, Ignore or Cancel? 

...signifie que vous n'avez pas insere la disquette correctement ou, si vous disposez d'une 
deuxieme unite de disquette, que vous Favez inseree dans Tunite B. 

ROINTIME.DEM not found 

...indique que vous n'avez pas insere la bonne disquette (ou la bonne face) ou que vous 
avez fait une erreur en tapant le nom, ROINTIME.DEM. 

Bad command 

...signifie que vous avez mal tape ROINTIME.DEM en inserant un espace ou un signe 
de ponctuation superflu. 



Type Mismatch 
...signifie que vous avez oublie les guillemets. 
Syntax error 

...vous avez fait une erreur en tapant run. 

Drive A: read fail 
Retry, Ignore or Cancel? 

...signifie que l'ordinateur n'a pas reussi a lire les donnees de la disquette. Verifiez que 
vous avez insere la bonne disquette et tapez R pour Retry (nouvel essai). Ce message 
apparait si vous avez endommage la disquette en mettant le systeme sous ou hors tension 
sans la retirer. 

Lorsque vous saurez dupliquer une disquette, n'oubliez jamais de copier les programmes 
importants, notamment le CP/M. 



Chargement du logiciel AMSOFT et du programme « BIENVENUE » 

Nous esperons avoir suscite votre interet pour Tinformatique, passons maintenant a un 
jeu... 

Inserez votre disquette dans l'unite et tapez : 
run "disc" CENTER] 

Au bout de quelques secondes, le jeu est charge et vous pouvez commencer. 

Tapez : run " disc " apres avoir insere votre disquette CP/M dans l'unite, face 1 vers le 
haut, ce qui declenche une demonstration de « Bienvenue ». 

Apres cette demonstration, reinitialisez votre systeme a Paide des touches [CTRL], 
[SHIFT] et [ESC]. 

Bien que Pinstruction run " disc " permette de charger la plupart des logiciels 
AMSOFT sur disquettes, il peut arriver que vous ayez a en utiliser une autre. Dans tous 
les cas, respectez scrupuleusement les instructions de chargement indiquees sur la dis- 
quette du logiciel. 

Pour terminer, verifiez que vous avez bien suivi les avertissements figurant au paragraphe 
« IMPORTANT » du debut de ce manuel, 

REMARQUES RELATIVES A ^INSTALLATION : 6 
REMARQUES RELATIVES AU FONCTIONNEMENT : 1, 5, 6 



Partie 6 : Passons a la programmation... 



Jusqu'ici, nous avons vu ce qu'il faut faire et ne pas faire, comment installer l'ordinateur 
et connecter les peripheriques. Nous avons appris a charger les logiciels et a utiliser cer- 
taines touches du clavier. Nous allons maintenant apprendre a utiliser des instructions 
pour faire bouger les choses... 

Comme vous et moi, l'ordinateur ne comprend les instructions que dans la langue qu'il 
connait. Ce langage s'appelle le BASIC (abreviation de Beginners' All-purpose Symbolic 
Instruction Code). Les mots du BASIC sont des « mots cles » communiquant chacun une 
fonction particuliere a l'ordinateur. Comme tous les langages, le BASIC obeit a des regies 
de grammaire. Dans ce cas precis, la grammaire s'appelle « Syntaxe » et l'ordinateur a 
toujours l'amabilite de vous indiquer vos erreurs de syntaxe. 

Introduction aux mots cles du BASIC AMSTRAD 

Vous trouverez une description de la syntaxe du BASIC AMSTRAD dans le chapitre 
« Liste complete des mots cles du BASIC AMSTRAD CPC664 ». 



CLS 

Pour effacer l'ecran, tapez : 
els CENTER] 

L'ecran s'efface et le mot Ready s'affiche suivi du curseur ■, dans Tangle superieur 
gauche de l'ecran. 

Vous pouvez utiliser indifferemment les MAJUSCULES ou les minuscules pour entrer 
un mot cle BASIC dans votre ordinateur. 

PRINT 

Sert chaque fois qu'il est necessaire d'afficher des caracteres, des mots ou des chiffres sur 
l'ecran. Si vous tapez Tinstruction suivante : 

print "bonjour" [ENTER] 



Vous voyez apparaitre : 

bonjour 

Les guillemets (" ") delimitent le message que Ton desire voir apparaitre. Vous remar- 
querez que bonjour est apparu sur l'ecran aussitot que la touche [ENTER] a ete frappee. 
Tapez : 

els [ENTER] 
...pour effacer l'ecran. 



RUN 

L'exemple precedent montrait une instruction simple d'une seule ligne. L'instruction a 
ete executee des que vous avez appuye sur la touche [ENTER], puis a ete oubliee. II est 
possible de stocker une serie d'instructions s'executant selon un ordre specifique, que Ton 
appelle un « programme ». Les instructions qui composent un programme sont de meme 
type que celles que nous venons de voir, mais precedees d'un numero de ligne. Les nume- 
ros de ligne d'un programme indiquent a l'ordinateur l'ordre d'execution des instructions. 
Lorsque vous appuyez sur [ENTER], la ligne est stockee dans la memoire. Tapez : 

10 print "bonjour" CENTER] 

Vous remarquerez qu'apres avoir appuye sur [ENTER], bonjour ne s'est pas affiche a 
Tecran. II s'est inscrit dans la memoire de l'ordinateur pour former un programme d'une 
ligne. Pour executer ce programme, tapez : 

run CENTER] 

Vous verrez alors bonjour apparaitre a l'ecran. Vous pouvez, si vous le desirez, rempla- 
cer PRINT par un point d'interrogation : 

10 ? "bonjour" CENTER] 
LIST 

Lorsqu'un programme a ete mis en memoire, on peut verifier ce qu'on a tape en deman- 
dant sa « liste ». Tapez : 

list CENTER] 

...et vous voyez apparaitre : 

10 PRINT "bonjour" 

...qui est le programme stocke en memoire. 



Avez-vous remarque que le mot PRINT est maintenant en majuscules ? Cela signifie qu'il 
a ete reconnu par l'ordinateur en tant que mot cle du BASIC. 

Tapez : els [ENTER] pour effacer 1'ecran, sans supprimer votre programme de la 
memoire. 



GOTO 

Le mot cle GOTO demande a l'ordinateur d'aller d'une ligne a une autre afin d'en sauter 
un certain nombre ou de former une boucle. Tapez : 

10 PRINT n bonjour" CENTER] 
20 GOTO 10 CENTER] 

...puis : 

run CENTER] 

Vous voyez alors bonjour s'afficher sans interruption, ligne apres ligne, la ligne 20 du 
programme demandant a l'ordinateur de retourner a la ligne 1 et de poursuivre l'execu- 

tion. 

Pour interrompre momentanement le programme, appuyez sur [ESC]. Pour continuer 
actionnez n'importe quelle autre touche. Pour l'arreter complement, actionnez [ESC] 
deux fois de suite. 

Faites : 

els CENTER] 

...pour effacer 1'ecran. 

Pour voir le mot bonjour s'afficher sur toute la ligne, il suffit de mettre un point-virgule 
a la fin de la ligne 10, apres les guillemets. 



Tapez ; 



10 PRINT'^onjour"; CENTER] 
20 GOTO 10 CENTER] 
run CENTER] 



Le point-virgule commande a l'ordinateur d'afficher le prochain groupe de caracteres 
immediatement apres le precedent (a moins qu'il ne soit trop long pour tenir sur la ligne). 



Quittez ce programme en appuyant deux fois sur [ESC]. Tapez la ligne 10a nouveau, 
mais en remplagant le point-virgule (;) par une virgule (,). 

10 PRINT"bonjour\ CENTER] 
run [ENTER] 

La virgule a demande a Fordinateur d'afficher le prochain groupe de caracteres 13 colon- 
nes apres le debut de celui-ci. Cette fonction permet d'afficher les donnees en colonnes. 
Cependant, si le nombre de caracteres inclus dans un groupe depasse 12, le groupe suivant 
est decale de 13 autres colonnes, afin de toujours menager un espace entre les groupes de 
caracteres. 

La taille de ces zones de 13 caracteres peut etre modifiee par la commande ZONE, decrite 
plus loin dans le manuel. 

Pour sortir du programme, appuyez deux fois sur [ESC]. Pour vider complement la 
memoire, remettez l'ordinateur a zero en appuyant sur [SHIFT], [CTRL] et [ESC], 

dans cet ordre. 



INPUT 

Cette commande sert a informer l'ordinateur qu'il doit attendre que Ton ait tape quelque 
chose avant de continuer. Par exemple : 

10 INPUT "Quel age avez-vous" ; age [ENTER] 

218 PRINT"Vous paraissez nettement moins que vos" ; age; "ans. " 

[ENTER] 

run [ENTER] 



Sur 1'ecran on voit : 

Quel age avez-vous? 

Si vous donnez votre age, mettons 18, puis [ENTER], on voit alors s'afficher : 
Vous parraissez nettement moins que vos 18 ans. 

Cet exemple montre l'utilisation de la commande INPUT et d'une variable numerique. 
Le mot age est mis en memoire a la fin de la ligne 1 pour que l'ordinateur Tassocie a 
tout nombre tape apres le point d'interrogation, afin de proceder a Faffichage de la ligne 
20. Bien que nous ayons utilise le mot age pour la variable £ge, nous aurions pu aussi 
bien prendre la lettre a ou b... 



Reinitialisez l'ordinateur avec les touches [CTRL] [SHIFT] et [ESC]. Si vous vouliez 
l'entree (INPUT) de caracteres indetermines (lettres ou lettres et chiffres), le signe dollar 
($) doit etre place a la fin de la variable. Cette variable est alors appelee « variable 
chaine». 

Tapez le programme suivant (en faisant attention a mettre un espace apres le r de 
bonjour et avant le m de mon). 

10 INPUT "Quel est ton nom H ;nom$ CENTER] 

20 PRINT"bonjour ";noin*;" non noiri est Roland" [ENTER] 

run CENTER] 

Sur l'ecran, on voit : 

Quel est ton nom? 

Tapez votre nom puis [ENTER] 
Si votre nom est Fred, vous verrez sur l'ecran : 
bonjour Fred mon nom est Roland 

Bien que nous ayons utilise nom$ comme variable chaine, nous aurions aussi bien pu 
utiliser a$. Nous allons maintenant combiner les deux exemples precedents en un seul 
programme. 

Faisons a nouveau [CTRL] [SHIFT] et [ESC]. Puis tapons le programme suivant : 

5 CLS CENTER] 

IB INPUT "Quel est ton nom M ;a* CENTER] 

2B INPUT "Quel est ton age";b CENTER] 

3B PRINT"Je dois dire M ;a$; M que tu ne fais pas tes M ;b;"ans. 

" CENTER] 

run CENTER] 



Dans ce programme, nous avons utilise deux variables, a$ pour le nom et b pour Page. 
Sur l'ecran on voit : 

Quel est ton nom? 

Tapez votre nom (Fred) puis [ENTER]. La question suivante apparait : 
Quel est ton age? 

Tapez maintenant votre age (18) puis [ENTER]. 



Je dois dire Fred que tu ne fais pas tes 18 ana. 

Editer un programme 

Si Tune des lignes du programme a ete tapee incorrectement, entrainant le message Syn- 
tax error ou un autre message d'erreur, il est possible de l'editer (autrement dit de la 
modifier) sans avoir a la retaper. Supposons que le programme precedent ait ete mal 
tape : 

5 CLSS CENTER] 

10 INPUT "Quel est to nom M ;a* [ENTER] 

20 INPUT "Quel est ton age";b CENTER] 

3 CENTER]" Je d ° iS direM5a$;,t que tu ne * ais P as tei-ibi-im/ 

Trois erreurs se sont glissees dans le programme ci-dessus : 

Dans la ligne 5, on a tape clss au lieu de els 
Dans la ligne 1 0, on a tape to au lieu de ton 
Dans la ligne 30, on a oublie l'espacement entre dire et les guillemets (") 

II existe trois methodes pour editer un programme. La premiere consiste a retaper entiere- 
ment la ligne. Quand une ligne est retapee et entree en memoire, elle remplace la ligne qui 
portait le meme numero. 

La deuxieme methode consiste a editer a l'aide du curseur. 

La derniere est appelee Copy Cursor, autrement dit Copie avec l'aide du Curseur. 

Methode d'edition a Faide du curseur 

Pour corriger la ligne 5, tapez : 
edit 5 CENTER] 

La ligne 5 apparait sous la ligne 30, le curseur place sur le c de clss. 

Pour enlever le s en trop dans clss, appuyez sur la touche curseur droite jusqu'a ce que 
celui-ci soit sur le dernier s, puis appuyez sur la touche [CLR]. Le s a disparu. 



Appuyez maintenant sur [ENTER], afin dc corriger la ligne 5 dans la memoire. Tapez 
maintenant : 

list CENTER] 
...pour verifier que la ligne 5 est correcte. 

La commande AUTO, decrite plus loin, peut servir a editer un nombre de lignes successi- 
ves de la meme maniere que la methode d'edition a l'aide du curseur. 

Methode par copie avec le curseur 

Le curseur de copie est un deuxieme curseur qui s'affiche lorsque vous appuyez simultane- 
ment sur [SHIFT] et sur Tune des touches du curseur. II se detache du curseur principal 
et peut circuler sur Tecran de maniere autonome. 

Pour corriger les fautes des lignes 1 et 30, actionnez et maintenez la touche [SHIFT] 
en pressant sur la touche curseur O, jusqu'a ce que le curseur soit au debut de la ligne 
10. Vous voyez que le curseur principal, en bas, n'a pas bouge. Puis pressez la touche 
[COPY] jusqu'a ce que le curseur soit place dans l'espace entre to et nom. La ligne 1 
est reecrite en meme temps en bas et le curseur principal s'immobilise a la meme place 
que le curseur de copie. Tapez la lettre n, qui apparait sur la ligne du bas seulement. 

Le curseur principal a bouge mais le curseur de copie est reste a sa place. Maintenant, 
appuyez sur la touche [COPY] pour afficher la totalite de la ligne 1 0. Pressez [ENTER] 
afin que cette nouvelle ligne 1 soit mise en memoire. Le curseur de copie disparait et le 
curseur principal se place au-dessous de la ligne 1 0. Pour corriger la deuxieme faute, 
maintenez la touche [SHIFT] enfoncee et appuyez sur la touche curseur O pour faire 
apparaitre le curseur de copie au debut de la ligne 30. 

Appuyez sur [COPY] jusqu'a ce que le curseur de copie soit superpose aux guillemets 
suivant « dire ». Appuyez une seule fois sur la barre d'espacement. Un espace va s'intro- 
duire sur la ligne du bas. Continuez d'appuyer sur la touche [COPY] jusqu'a ce que la 
ligne 30 soit copiee. Appuyez sur [ENTER]. 

Vous pouvez demander la liste du programme en tapant : 

list CENTER] 

REMARQUE : Pour deplacer rapidement le curseur (en cours d'edition) a l'extremite 
droite ou gauche d'une ligne, maintenez la touche [CTRL] et appuyez sur une des 
touches flechees <3 ou c>. 

Effectuez la remise a zero avec les touches [CRTL], [SHIFT] et [ESC]. 

IF 

Les commandes IF et THEN demandent a Tordinateur de tester une condition specifiee 
et de proceder a une execution en fonction du resultat du test. Par exemple, dans 
Pinstruction : 



if 1+1=2 then print "vrai" CENTER] 

...l'ordinateur verifie la condition 1 + 1 = 2 et affiche « vrai », le cas echeant. 

Le mot cle ELSE peut servir a indiquer ce que l'ordinateur doit faire si la condition IF 
n'est pas remplie. 

ii 1+1=0 then print "vrai" else print "faux" [ENTER] 

Nous allons main tenant prolonger notre programme a l'aide de la commande IF THEN. 

Tapez le programme suivant, en remarquant que nous introduisons deux symboles nou- 
veaux : < signifie moins grand que et se situe a cote de la lettre M, > signifie plus grand 
que et se trouve a cote du signe < , moins grand que. 

5 CLS [ENTER] 

10 INPUT "quel est ton nom";a« CENTER] 
20 INPUT "quel age as-tu"jage [ENTER] 
30 IF age < 13 THEN 60 [ENTER] 
40 IF age < 20 THEN 70 [ENTER] 
50 IF age > 20 THEN 80 CENTER] 

60 PRINT"donc "jaij" tu n'est pas encore un adolescent avec 
tes l, ;age5' , ans. ,, :END [ENTER] 

70 PRINT M donc " ; a*; M tu es un adolescent avec tes";age; "ans. 
M :END CENTER] 

80 PRINF'eh bien "jat^tu n'est done plus un adolescent avec 
tes^age^ans." CENTER] 

Pour verifier que ce programme est correct, faites : 
list CENTER] 

...puis tapez : 

run CENTER] 

Vous pouvez maintenant repondre aux questions de l'ordinateur et observer ce qui se 
passe. 

Vous pouvez constater les effets du IF (si) et du THEN (alors) comme commandes dans 
un programme. Nous avions aussi ajoute le mot END (fin) a la fin des lignes 60 et 70. 
Ce mot reserve END est utilise pour mettre fin a un programme. S'il n'etait pas la, le 
programme continuerait a avancer et afficherait aussi les lignes 70 et 80. 



Le mot END a la fin de la ligne 70 joue le meme role. Les deux-points (:) avant le mot 
END le separent de Tinstruction precedente. Les : sont utilises pour separer des instruc- 
tions afin d'en mettre plusieurs sur une meme ligne. Nous avons aussi ajoute la ligne 5 
pour effacer l'ecran, comme il convient de le faire au debut de chaque programme, pour 
rendre les choses plus claires. 

Remise a zero avec [CTRL], [SHIFT] et [ESC]. 



FOR et NEXT 

Nous allons utiliser maintenant les commandes FOR et NEXT. 

Les commandes FOR et NEXT permettent de repeter un certain nombre de fois une 
action definie (boucle). Le groupe destructions a repeter doit etre delimite par FOR et 
NEXT. 

Tapez : 

5 CLS CENTER] 

IB FOR a = l TO 10 [ENTER] 

20 PRINT'ACTION executee" ; a; "fois" CENTER] 

30 NEXT a CENTER] 

run CENTER] 

Vous remarquerez que l'instruction de la ligne 20 a ete executee dix fois, comme le spe- 
cific la commande FOR de la ligne 10. Vous constatez egalement que la valeur de la 
variable est incrementee de 1 a chaque passage dans la boucle. 

Le mot cle STEP peut servir a definir le pas de la commande FOR NEXT. Par exemple, 
vous pouvez remplacer la ligne 10 par : 

10 FOR a=10 TO 50 STEP 5 CENTER] 
run CENTER] 

Vous pouvez aussi fixer des pas negatifs : 

10 FOR a=100 TO STEP -10 CENTER] 
run CENTER] 



REM 

REM est l'abreviation de REMark Cette instruction demande a l'ordinateur d'ignorei 
tout ce qui suit sur la ligne destruction. REM peut ainsi servir a introduire des informa- 
tions : le titre d'un programme ou l'utilisation d'une variable par exemple : 

10 REM Pan sur les envahisseurs CENTER] 
20 V=5:REM nombre de vies CENTER] 



L'apostrophe (obtenue en appuyant sur [SHIFT] et sur la touche 7) peut rempla- 
cer :REM : 

10 » Pan sur les envahisseurs [ENTER! 
20 V=5' nombre de vies [ENTER] 



GOSUB 

Si un ensemble ^instructions doit etre execute plusieurs fois, vous pouvez eyiter de reta- 
per les instructions en creant un « sous-programme » dont l'appel se fait grace a la com- 
mande GOSUB, suivie du numero de ligne requis. La fin du sous-programme s'indique 
par RETURN. L'ordinateur passe alors a Instruction qui suit immediatement la com- 
mande GOSUB qu'il vient d'executer. 

(Les deux programmes suivants ne « font » rien d'autre qu'afficher des mots a l'ecran. 
Comme ils ne servent qu'a illustrer le fonctionnement des sous-programmes, il n'est pas 
indispensable de les taper). 

Par exemple, dans ce programme : 

LB MODE 2 [ENTER] 

20 PRINT M Dame souris trotte," [ENTER] 

30 PRINT M Noire dans le gris du sair," [ENTER] 

40 PRINT n Dame souris trotte," [ENTER] 

50 PRINT"Grise dans le noir." [ENTER] 

60 PRINT [ENTER] 

70 PRINT H Un nuage passe, M [ENTER] 

80 PRINT" II fait noir comme en un four" [ENTER] 

90 PRINT"Un nuage passe," [ENTER] 

100 PRINT"Tiens,le petit jour !" [ENTER] 

110 PRINT [ENTER] 

120 PRINT"Dame souris trotte," [ENTER] 

130 PRINT"Rose dans les rayons bleus," [ENTER] 

140 PRINT"Dame souris trotte," [ENTER] 

150 PRlNT"Debout paresseux !" [ENTER] 

160 PRINT [ENTER] 

170 PRINT" P.Verlaine" [ENTER] 

run. [ENTER] 



...vous pouvez constater qu'un certain nombre de lignes reviennent plusieurs fois, comme 
le vers de la ligne 190 et celui de la ligne 21 0. Creons deux sous-programmes pour les 
vers, sans oublier RETURN a la fin. Ainsi, nous pouvons appeler les sous-programmes 
a Taide de la commande GOSUB 190 et GOSUB 210 chaque fois que nous voulons 
utiliser le vers. Le programme prend alors cet aspect : 

10 MODE 2 CENTER] 

20 GOSUB 190 [ENTER] 

30 PRINT H Noire dans ie gris du soir," [ENTER] 

40 GOSUB 190 [ENTER] 

50 PRINT"Grise dans le noir." [ENTER] 

60 PRINT [ENTER] 

70 GOSUB 210 [ENTER] 

80 PRINT 11 1 1 fait noir comtne en un four" LENTER] 

90 GOSUB 210 [ENTER] 

100 PRINT"Tiens,le petit jour ! M [ENTER] 

110 PRINT [ENTER] 

120 GOSUB 190 [ENTER] 

130 PRINT"Rose dans les rayons bleus," [ENTER] 

140 GOSUB 190 [ENTER] 

150 PRINV'Debout paresseux !" [ENTER] 

160 PRINT LENTER] 

170 PRINT" P.Verlaine" [ENTER] 

180 END [ENTER] 

190 PRINT"Dame souris trotte," [ENTER] 

200 RETURN [ENTER] 

210 PRINT"Un nuage passe," [ENTER] 

220 RETURN [ENTER] 

run [ENTER] 



Nous avons ainsi gagne un temps precieux ! Les sous-programmes bien penses sont une 
partie essentielle de la programmation. lis debouchent sur des programmes « structures » 
et sont un bon rdflexe de programmation. 

Lorsque vous creez des sous-programmes, rappelez-vous qu*il vous est possible d'avoir 
plusieurs points d'entree. Par exemple, un sous-programme occupant les lignes 500 a 
800 pourra tres bien etre aborde au point 500 (GOSUB500), 640 (GOSUB640) 
ou790(GOSUB790). 

Notez Timportance de l'instruction END a la ligne 180. Sans elle, le programme conti- 
nuerait apres la ligne 1 70 et executerait la ligne 1 90, qui ne doit l'etre que par l'interme- 
diaired'un GOSUB. 



Arithmetique simple 

Votre ordinateur peut facilement vous servir de calculatrice. Pour en assimiler le fonc- 
tionnement, nous vous proposons les exercices suivants. La reponse sera affichee aussitot 
que la touche [ENTER] sera frappee. 



Addition 

(utilisez [SHIFT] et ;) 


Tapez : 




?3 + 3 
6 


CENTER] 


(Vous n'avez 
Tapez : 


; PAS a taper le signe = ) 


?8 + 4 
12 


[ENTER] 


Soustraction 




(Utilisez = pour moins) 


Tapez : 




?4-3 

1 


[ENTER] 


Tapez : 




?B-4 
4 


[ENTER] 



Multiplication 

(Utilisez [SHIFT] et : pour multiplier (* signifie x)) 

Tapez : 



?3$3 [ENTER] 
9 



Tapez: 



?8*4 [ENTER] 
32 



Division 

(Utilisez/pour diviser sans appuyer sur [SHIFT]) 
Tapez : 

?3/3 [ENTER] 
1 



Tapez : 

?8/4 CENTER] 
2 

Division entiere 

(Utilisez la barre\pour diviser avec suppression du reste) 

Tapez : 

?lfl\6 CENTER] 
1 

Tapez : 

?20\3 CENTER] 
6 

Modulo 

(Utilisez MOD pour obtenir le reste d'une division entiere) 
Tapez : 

?10 MOD 4 
2 

Tapez : 

?9 MOD 3 


Racine carree 

Pour trouver la racine carree d'un nombre, utilisez sqr ( ). Le nombre dont on veut 
extraire la racine doit etre entre parentheses. 

Tapez : 



?sqr(16) CENTER] (ceci veut dire \fl6)' 
4 



Tapez : 



?sqr (100) CENTER] 
10 



Puissances 

(Utilisez le signe t) 

Exemples de puissances : 3 2 (3 au carre), 3 3 (3 au cube), etc. 

Tapez : 

?3t3 CENTER] (ceci veut dire 3~) 
27 



Tapez : 

4096 



?8T4 CENTER] (ceci veut dire 8 4 ) 



Racines cubiques 

Vous pouvez facilement calculer les racines cubiques en adoptant la methode ci-dessus : 

Pour trouver la racine cubique de 27 ( i\f 27) 

Tapez : 

?27T<l/3) CENTER] 
3 

Pour trouver la racine cubique de 125 
Tapez : 

7125TU/3) CENTER] 
5 



Calculs composes 

( + ,-,*,/) 

Les calculs melangeant addition, multiplication, etc., sont compris par Tordinateur, mais 
il faut faire attention a la priorite des operateurs. 

La priorite va a la multiplication, suivie de la division, de l'addition et enfin de la 
soustraction. II existe cependant d'autres operateurs dotes de priorites differentes. 

Soit le calcul : 

3+7-2*7/4 

On pourrait penser qu'il se fait de la maniere suivante : 

3+7-2 17 /4 
= 8 *7 /4 

= 56/4 
= 14 

La realite est pourtant : 

3+7-2*7/4 
=3+7-14/4 
=3+7-3.5 
=10-3.5 
= 6.5 

Pour le constater, il suffit de le taper : 

73+7-2*7/4 [ENTER] 
6,5 

On peut changer la maniere dont Fordinateur calcule en ajoutant des parentheses, affec- 
tant la priorite aux operateurs qu'elles contiennent. Par exemple : 

?(3+7-2)*7/4 CENTER] 
14 



Ordre de priorite de tous les operateurs mathematiques : 

t Elevation a la puissance 

MOD Modulo 

Moins unaire (donne le negatif d'un nombre) 
* et / Multiplication et division 

\ Division entiere 

+ et - Addition et soustraction 



Encore des puissances... 

Quand on veut se servir de tres grands ou tres petits nombres dans les calculs, il est 
quelquefois utile de faire appel a la notation scientifique. La lettre E est utilisee en infor- 
matique pour les exposants des nombres en base 10. Vous etes libre de taper E ou e, sans 
oublier que pour certains mathematiciens, e peut avoir un sens different dans les loga- 
rithmes neperiens. 

Ainsi, 300 est egal a 3 x 10 2 . En notation scientifique, on ecrit 3E2. De meme, 0.03 est 
egal a 3 x 10" 2 . On ecrit 3E-2. Essayez les exemples suivants. 



Tapez ; 



73BI10 LENTER3 
30(9 



ou bien 



?3EltiEl CENTER] 

7300011000 CENTER] ...ou... ?3E3*1E3 CENTER] 
3000000 

73000*0.001 CENTER] ...ou... 73E3I1E-3 CENTER] 
3 



Partie 7 : Sauvegarde 



Maintenant que vous savez taper quelques instructions, vous avez surement tres envie de 
sauvegarder vos programmes sur disquettes et les charger dans 1'ordinateur a partir de 
ces memes disquettes. 

Meme si vous savez deja sauvegarder et charger des programmes sur cassette, vous devez 
assimiler quelques notions supplementaires pour effectuer les memes operations sur dis- 
quette. II existe essentiellement deux differences. 

Vous ne pouvez pas utiliser une disquette vierge comme vous le feriez pour une cassette. 
La disquette doit tout d'abord etre formatee. 

Vous devez « nommer » vos fichiers disque correctement. Si les noms de fichiers sur cas- 
sette obeissent a des regies tres floues, ceux sur disquette doivent au contraire se confor- 
mer strictement aux normes CP/M, detaillees plus loin dans ce chapitre. 



Formatage des disquettes 

Avant d'ecrire des donnees sur une disquette vierge, il faut commencer par la formater. 
Le formatage peut etre vu comme la construction d'une serie d'etageres dotees de com- 
partiments pour le stockage des informations - en d'autres mots, une structure capable 
de stocker et de restituer des donnees. 



Le formatage partage chaque face de la disquette en 360 zones distinctes : 

Piste 39 



Boitier 




Piste 



La disquette comporte 40 pistes, depuis la piste (exterieure) jusqu'a la piste 39 (inte- 
rieure). Chaque piste se divise en 9 secteurs. 

Chaque secteur, quelle que soit la piste, peut contenir 512 octets de donnees, soit 180 
Koctets d'espace disponible sur chaque face de la disquette. 

Premieres etapes pour l'utilisation de la disquette CP/M 

Avant d'utiliser une disquette vierge pour l'ecriture et la lecture de vos programmes, for- 
ma tez-la a Faide de la disquette CP/M. 

Allumez votre systeme et inserez votre disquette CP/M dans l'unite. 

S'il s'agit d'un systeme a 2 unites, inserez la disquette CP/M dans l'unite principal (Unite 

A). 

Puis tapez : 

icpm CENTER] 

(La barre verticale s'obtient avec les touches [SHIFT] et@). 
Apres quelques secondes, le message suivant apparait sur l'ecran : 

CP/M 2.2 - Amstrad Consumer Electronics pic 
A> 

Ce symbole indique que le systeme passe sous controle de CP/M. 

Le symbole A > a l'ecran est l'equivalent du Ready sous BASIC. II indique que l'ordina- 
teur est pret a recevoir vos instructions. 

Une fois sous CP/M, les instructions BASIC ne sont plus comprises par l'ordinateur. 
Si vous tapez par exemple la commande BASIC : 

els [ENTER] 
...l'ordinateur repond en repetant le mot incompris, suivi d'un point d'interrogation : 

CLS? 
...montrant ainsi qu'il ne comprend pas votre commande. 



Abordons main tenant quelques commandes de CP/M. Tapez : 

dir CENTER! 

Vous allez voir apparaitre le catalogue des COMmandes et utilitaires du CP/M. L'un 
d'eux est format. Tapez : 

format CENTER] 

Apparait sur l'ecran : 

Please insert disc to be formatted into drive A 
then press any key. 

Enlevez votre disquette CP/M et remplacez-la par une disquette vierge, puis appuyez sur 
n'importe quelle touche. Le formatage commence alors, de la piste a la piste 39. Une 
fois l'operation terminee, vous voyez apparaitre a l'ecran : 

Do you want to format another disc (Y/N): 

Si vous desirez formater r autre face de votre disquette vierge ou celle d'une nouvelle dis- 
quette, tapez Y (pour Yes) ; le message initial reapparait alors. 

Cette operation de formatage se repete jusqu'a ce que vous repondiez N (pour No). Dans 
ce cas, CP/M vous demande : 

Please insert a CP/M systeme disc into drive A 
then press any key; 

L'ordinateur vous redonne alors la main (mode direct du CP/M) et attend votre 
prochaine commande. Nous parlerons des autres commandes du CP/M plus loin dans ce 
manuel. Si vous avez compris comment formater avec CP/M, reinitialisez le systeme a 
l'aide des touches [CTRL], [SHIFT] et [ESC]. 

Gardez toujours une copie de votre disquette CP/M en lieu sur car elle est la cle de voute 
de votre systeme. Nous vous montrerons par la suite comment faire une copie de cette 
precieuse disquette de fa^on a pouvoir la mettre de cote soigneusement. 

ATTENTION 

LE FORMATAGE DUNE DISQUETTE DEJA ENREGISTREE ENTRAINERA 
L'EFFACEMENT DE SON CONTENU. 

Vous ne pouvez pas formater une disquette dont le trou de protection en ecriture est 
ouvert. Si vous essayez malgre tout, vous voyez apparaitre le message : 

Drive Asdisc is write protected 
Retry, Ignore or Cancel? 



Appuyez sur C, puis suivez les instructions de l'ecran afin de quitter le mode Format. 

Maintenant que nous avons formate une disquette vierge (ou deux), nous pouvons com- 
mencer a experimenter les commandes de gestion des disquettes propres au BASIC. 



Sauvegarde d'un programme sur disquette 

Vous avez tape un programme dans la memoire de 1'ordinateur. Vous voulez le sauvegar- 
der sur disquette. Tapez : 

save "nomfich" CENTER] 
Remarquez que vous devez donner un nom a votre programme. 

Un nom de fichier sur disquette se compose de deux parties ou zones. La premiere, obliga- 
toire, peut contenir jusqu'a 8 caracteres, lettres ou nombres (les espaces et les signes de 
ponctuation sont interdits). Cette premiere zone contient generalement le nom du pro- 
gramme. 

La deuxieme zone, facultative, peut contenir jusqu'a trois caracteres, mais cette fois 
encore ni espace ni signe de ponctuation. Ces deux parties sont separees par un point. 

En l'absence d'une deuxieme zone specifiee, le systeme en choisit une par defaut, .BAS 
pour les fichiers BASIC ou .BIN pour les fichiers binaires (en code machine). 

Comme exemple de sauvegarde sur disquette, ecrivez un petit programme dans la 
memoire de 1'ordinateur, inserez une disquette formatee dans l'unite et tapez : 

save "exemple" CENTER] 

Apres quelques secondes, le message Ready apparait sur l'ecran, le programme est main- 
tenant sauvegarde sur la disquette. (Dans le cas contraire, verifiez ce que dit le message 
d'erreur sur l'ecran. La disquette peut ne pas avoir ete inseree dans la bonne unite ou le 
trou de protection en ecriture peut etre ouvert, ou encore la commande avoir ete mal 
ecrite). 



Catalogue 

Apres la sauvegarde du programme precedent, tapez : 

cat CENTER] 
Vous verrez apparaitre : 

Drive A: user 

EXEMPLE. BAS IK 
168K free 



Le nom du programme sera affiche avec ses deux zones, la deuxieme ayant ete specifiee 
ou non, ainsi que la longueur du programme (arrondie au Ko superieur). L'espace libre 
total du disque sera egalement affiche. 



Chargement d'un programme sur disquette 

Les programmes sur disquette sont charges dans la memoire de 1'ordinateur a l'aide de la 
commande : 

load "nofflfich" CENTER] 
run CENTER] 

...ou pour un demarrage immediat : 

run "namHch" CENTER] 

Notez au passage que run est la seule commande permettant d'executer des programmes 
proteges. 



I A et | B 

Avec un systeme a deux unites de disquette, vous devez specifier l'unite (A ou B) sur 
laquelle vous desirez executer une fonction. Tapez pour cela : 

ia CENTER] 
...ou : 

!b CENTER] 

...avant d'entrer les commandes SAVE, CAT ou LOAD. 



Copie de programmes de disquette a disquette 

En utilisant les commandes deja abordees dans ce chapitre, vous constaterez que Ton peut 
copier un programme d'une disquette (source) sur une autre, en le chargeant d'abord 
dans la memoire de 1'ordinateur puis en le sauvegardant sur 1'autre disquette (disquette 
destination). 

Si vous utilisez un systeme a deux unites, vous pouvez inserer la disquette avec le pro- 
gramme a charger dans une unite, B par exemple, et la disquette qui regoit le programme 
dans Tautre unite, A par consequent ; ce qui donne : 



!b CENTER! 

load "nomfich" [ENTER] 

ia [ENTER] 

save "nomfich" CENTER] 

Outre la methode habituelle de sauvegarde de fichiers BASIC, vous disposez de quatre 
autres methodes de sauvegarde de fichiers : 

run "nomfich" [ENTER] 

„.il en existe trois autres destinees a des applications plus specialises. 

save "ncm*ich M ,a [ENTER] 

Le suffixe ,a demande a l'ordinateur de sauvegarder le programme ou les donnees sous 
la forme d'un fichier de texte ASCII. Cette methode de sauvegarde s'applique aux fichiers 
de traitement de texte et a d'autres programmes ^'application. Son utilisation sera abor- 
dee ulterieurement avec les applications concernees. 

save H nofflfich M ,p [ENTER] 

Le suffixe ,p demande a l'ordinateur de proteger le programme, c'est-a-dire d'interdire 
son listage apres chargement ou son interruption, par la touche [ESC], apres demarrage. 

Les programmes sauvegardes de cette fa?on ne peuvent etre lances que directement, a 
l'aide des commandes : 

save "nomfich" [ENTER] 

...ou : 

chain "noifich M CENTER] 

Si vous prevoyez de modifier un programme, il est indispensable d'en garder une copie 
sous forme non protegee, done sans le suffixe « ,p ». 

save " nomfich ",b, <adressede depart > , <nombre d'octets> [, 

< point d'entree eventuel>] [ENTER] 

Cette option permet d'effectuer une sauvegarde binaire qui provoque le stockage de blocs 
entiers de donnees de la RAM sur la disquette, tels qu'ils apparaissent dans la memoire. 
II est necessaire dans ce cas d'indiquer a l'ordinateur le debut de la zone memoire a sauve- 
garder, sa longueur et, s'il s'agit d'un programme, l'adresse. memoire a partir de laquelle 
le fichier doit s'executer. 



Cette sauvegarde binaire permet de stocker directement sur disquette les donnees de la 
memoire ecran sous forme d'un vidage d'ecran. Le contenu de l'ecran est alors sauve- 
garde tel qu'il apparait a TafRchage, a Taide de la commande : 

save "pagecran", 5,49152,16384 CENTER] 

49152 est Tadresse de depart de la memoire ecran et 16384 indique la longueur de 
memoire ecran que vous desirez sauvegarder. 

Pour rappeler ces donnees a Tecran, tapez : 

load "pagecran" CENTER] 

Vous trouverez plus loin dans le manuel des informations complementaires sur la mani- 
pulation des fichiers programme entre disquettes/cassettes. 

Enfin, assurez-vous que vous avez bien respecte les avertissements indiques dans la rubri- 
que « IMPORTANT » : 

REMARQUES RELATIVES A ^INSTALLATION : 5, 6 et 7. 
REMARQUES RELATIVES AU FONCTIONNEMENT : 1, 2, 3, 4, 5, 6, 7 et 9. 



Partie 8 : Modes couleurs et graphiques 



L'ordinateur personnel Amstrad CPC664 dispose de trois modes d'affichage a l'ecran : 
Mode 0, Mode 1 et Mode 2. 

A la mise sous tension, l'ordinateur est automatiquement en mode 1. 

Pour comprendre le systeme des modes, appuyez, apres la mise en route, sur la touche 
numerique 1. Maintenez-la enfoncee jusqu'a obtenir deux lignes pleines de 1. Si vous 
comptez le nombre de 1 d'une ligne, vous verrez qu'il y en a 40 : en Mode 1, il y a 40 
colonnes. Appuyez sur [ENTER], vous aurez le message « Syntax Error ». Ne vous 
inquietez pas, nous avons simplement pris le plus court chemin pour revenir au message 
Ready. 

Tapez alors ; 

mode CENTER] 

Vous voyez que les caracteres sur l'ecran sont plus larges. Appuyez sur le chiffre 1 pour 
avoir deux lignes pleines de 1. Vous en decomptez 20 par ligne. II y a done 20 colonnes 
en Mode 0. Appuyez sur [ENTER] de nouveau. 

Et tapez : 

mode 2 CENTER] 

L'ecriture est plus petite dans ce mode ; une ligne de 1 en comprendra 80. II y a done 80 
colonnes en Mode 2. 

En resume : 

Mode = 20 colonnes 
Mode 1—40 colonnes 
Mode 2 = 80 colonnes 

Tapez [ENTER] une fois de plus. 



Couleurs 

Vous avez le choix entre 27 couleurs. Sur un moniteur vert, dies apparaissent en 
camaieux de vert. Si vous disposez du moniteur vert GT65, vous pouvez acheter l'adapta- 
teur Peritel pour vous servir de votre televiseur couleur. 

En Mode 0, on peut avoir 16 couleurs en meme temps a l'ecran. 
En Mode 1, on peut en avoir 4. 
En Mode 2, on peut en avoir 2. 

II est possible de changer la couleur de la bordure du cadre exterieur, appelee BORDER, 
la couleur de Tespace d'ecriture appele PAPER et la couleur du stylo, appele PEN (c'est- 
a-dire la couleur des caracteres), independamment les unes des autres. 

Les 27 couleurs disponibles sont indiquees dans le Tableau 1, chacune avec le numero de 
reference de la couleur (INK = encre). 

Pour plus de commodite, ce tableau (version anglaise) figure en haut a droite de l'ordina- 
teur. 

Tableau des couleurs 



INK 


Couleur de 1'encre 


INK 


Couleur dc 1'encre 


No 




No 







Noir 


14 


Bleu Pastel 


1 


Bleu 


15 


Orange 


2 


Bleu Vif 


16 


Rose 


3 


Rouge 


17 


Magenta Pastel 


4 


Magenta 


18 


Vert Vif 


5 


Mauve 


19 


Vert Marin 


6 


Rouge Vif 


20 


Turquoise Vif 


7 


Violet 


21 


Vert Citron 


8 


Magenta Vif 


22 


Vert Pastel 


9 


Vert 


23 


Turquoise Pastel 


10 


Turquoise 


24 


Jaune Vif 


11 


Bleu Ciel 


25 


Jaune Pastel 


12 


Jaune 


26 


Blanc Brillant 


13 


Blanc 







Tableau 1 : Les numeros d'encre (INK) et les couleurs 

Comme nous le disions auparavant, l'ordinateur est en mode 1 a Porigine. Pour y revenir 
a partir d'un autre mode, tapez ; 

mode 1 CENTER] 



Configuration de Fecran 




STYLO 

BORDURE 
PAPIER 



BORDER est le cadre entourant la zone d'ecriture ou PAPER. (Au depart, BORDER 
et PAPER sont bleus tous les deux). Les caracteres affiches apparaissent toujours a l'inte- 
rieur du cadre. PAPER designe le fond sur lequel ils s'affichent. Le stylo (PEN) colore 
les caracteres. 

Nous allons maintenant aborder la selection des couleurs affichees a l'ecran et la fagon 
de les modifier. 

A la mise sous tension ou lors d'une reinitialisation, le cadre est toujours de la couleur 
numero 1. En consultant le tableau 1, vous constaterez que c'est la couleur bleue. Pour 
modifier la couleur du cadre, utilisez la commande : BORDER suivie du numero de la 
couleur selectionnee. Pour un cadre blanc, tapez : 

border 13 CENTER] 
Pour Tinstant, pas de probleme. Compliquons un peu l'exercice... 

A la mise sous tension ou a la reinitialisation, les numeros PAPER et PEN sont automa- 
tiquement selectionnes : PAPER = 0, PEN = 1. Mais ceci ne veut PAS dire pour 
autant que les couleurs du papier et du stylo sont celles du tableau 1... 

En effet, PAPER et PEN 1 ne sont pas des parametres de couleur. Imaginez que vous 
disposiez de 4 stylos numerates de a 3 et que, pour chacun d'entre eux, vous ayez le 
choix entre 27 couleurs d'encre, numerotees de a 26. Vous voyez done que le stylo 
numero 1 peut prendre plusieurs couleurs. Libre a vous, bien entendu, de choisir la meme 
couleur d'encre pour les quatre stylos. 



Cest ce qui se passe avec l'ordinateur. A Taide des commandes PEN et IN K, vous pouvez 
selectionner le stylo qui vous interesse et sa couleur d'encre. 

En vous rappelant que vous operez en Mode 1 (40 colonnes), consultez le tableau 2 ci- 
dessous et vous verrez dans la premiere et la troisieme colonne que le stylo numero 1 



que la couleur nume 


ro 24 est jaur 


le vu ; c e 


si oien la couieur ac 


s caracicics auuaic:> a la 


mise sous tension. 




Couleurs 


par defaut 




N°de 


ModeO 




Mode 1 


Mode 2 


Papier/stylo 


Couleur d 


'encre 


Couleur d'encre 


Couleur d'encre 





1 




1 


1 


1 


24 




24 


24 


2 


20 




20 


1 


3 


6 




6 


24 


4 


26 




1 


1 


5 







24 


24 


6 


2 




20 


1 


7 


8 




6 


24 


8 


10 




1 


1 


9 


12 




24 


24 


10 


14 




20 


1 


11 


16 




6 


24 


12 


18 




1 


1 


13 


22 




24 


24 


14 


clignotementl,24 


20 


1 


15 


clignotementl6,ll 


6 


24 



Tableau 2. Reference PAPER/PEN/MODE/INK 



Attention ! Les correspondances PAPER/PEN/INK indiquees au tableau 2 ne sont pas 
fixes. En effet, il ne s'agit la que des couleurs par defaut, selectionnees a la mise sous ten- 
sion et a la reinitialisation de l'ordinateur. Vous pouvez les modifier a l'aide de la com- 
mande INK, constitute de deux parametres, le premier pour le numero du papier ou du 
stylo et le second pour le numero de la couleur d'encre. One virgule separe ces deux para- 
metres. 

Sachant que le stylo numero 1 est selectionne, nous allons changer sa couleur d'encre 
pour obtenir des caracteres oranges. 

Tapez : 

ink 1,15 CENTER] 

...les caracteres affiches ont.effectivement change de couleur. 

La commande INK sert aussi a modifier la couleur du fond. Le premier numero est 
selectionne a la mise sous tension ; nous allons modifier sa couleur pour obtenir un papier 
numero de couleur verte (numero 9) : 

ink 0,9 CENTER] 

Changeons maintenant de stylo : 
pen 3 CENTER] 

Vous remarquerez alors que seuls les nouveaux caracteres (tapes apres la commande) 
changent de couleur. Avec le stylo numero 3, la couleur d'encre initiale est rouge vif 
(numero 6, tableau 2). Passons a la couleur rose en tapant : 

ink 3,16 CENTER] 

3 est le parametre du stylo selectionne precedemment par la commande : pen 3, et 1 6 
correspond a la couleur d'encre rose. 



Changeons maintenant le papier (fond sur lequel s'afFicheront les caracteres). Lorsque 
vous selectionnez un nouveau papier, la couleur du fond ne change que pour les caracte- 
res affiches apres Pexecution de cette commande. Tapez : 

paper 2 [ENTER] 

Cette fois encore, verifiez sur les tableaux 1 et 2 que le numero 2 de PAPER correspond 
a un fond turquoise vif. Colorez-le en noir en tapant : 

ink 2,0 CENTER] 

L'ecran affiche maintenant des caracteres ecrits avec les stylos 1 et 3 sur des fonds et 
2. Vous pouvez selectionner des couleurs INK de stylo et papier, que vous n'etes pas en 
train d'utiliser. Tapez par exemple : 

ink 1,2 CENTER] 

Les caracteres deja tapes avec le stylo 1 changent de couleur. 
Tapez : 

els [ENTER] 

...pour effacer l'ecran. 

Vous devez etre a meme desormais de revenir aux couleurs d'origine (cadre et fond bleus, 
caracteres jaunes vif) a l'aide des commandes BORDER, PAPER, PEN et INK! 
Essayez. Si vous n'y parvenez pas, reinitialisez Tordinateur a Taide des touches [CTRL1 
[SHIFT] et [ESC]. 

Couleurs clignotantes (Flash) 

On peut faire alterner les caracteres d'une couleur a 1'autre en utilisant un autre numero 
de couleur pour la definition INK de la commande PEN. 

La couleur des caracteres va changer rapidement entre le blanc brillant et le rouge vif. 
Reinitialisez a Taide des touches [CTRL] [SHIFT] [ESC] et tapez : 

ink 1,26,6 [ENTER] 



I correspond au numero du stylo (PEN), 26 au blanc brillant et 6 a la couleur qu'il va 
prendre, rouge vif. 

II est egalement possible de faire clignoter le fond PAPER d'une couleur a Pautre. Vous 
devez alors ajouter a la commande INK un numero de couleur supplementaire. 

Pour faire clignoter PAPER entre vert et jaune vif, tapez : 

ink 0,9,24 CENTER] 

correspond au numero du papier PAPER, 9 au vert et 24 au jaune vif. 

Reinitialisez a l'aide des touches [CTRL] [SHIFT] [ESC]. 

Le tableau 2 vous montre qu'en mode 0, deux des numeros de PEN (numeros 1 4 et 1 5) 
ou de PAPER (numeros 1 4 et 1 5) representent les couleurs clignotantes d'origine. Autre- 
ment dit, leurs commandes INK ont ete preprogrammees avec un parametre de couleur 
supplementaire. 

On le constate en faisant : 

mode CENTER] 
pen 15 CENTER] 

...afin que le mot Ready alterne entre bleu ciel et rose ! Si vous faites ensuite : 

paper 14 CENTER] 
els CENTER] 

...outre Ready clignotant entre bleu ciel et rose, le fond de PAPER alterne maintenant 
entre jaune et bleu. 

Les numeros de stylo et papier 1 4 et 1 5 peuvent etre reprogrammes par la commande 
INK, pour obtenir d'autres couleurs intermittentes ou une couleur fixe. 

Enfin, on peut faire clignoter la couleur du cadre en ajoutant un autre numero de couleur 
a la commande BORDER. 

Par exemple : 

border 6,9 CENTER] 

La couleur du cadre alterne du rouge vif au vert. Pour le cadre, vous avez le choix entre 
une ou deux couleurs parmi les 27 disponibles, quel que soit le mode de fonctionnement 
0, 1 ou 2. 

Reinitialisez l'ordinateur a Taide des touches [CTRL] [SHIFT] et [ESC]. 



Pour voir ce qu'il est possible de faire avec les couleurs, tapez ce programme et lancez-le 
(run). 

113 MODE CENTER] 

20 vitesse=600:REM Determine la vitesse du programme [ENTER] 

30 FOR b=0 TO 26 CENTER] 

40 LOCATE 1,12 CENTER] 

50 BORDER b CENTER] 

60 PRINT"COULEUR DU CADRE";b CENTER] 

70 FOR t=l TO vitesse CENTER] 

80 NEXT t,b CENTER] 

90 CLG CENTER] 

100 FOR p=0 TO 15 CENTER] 

110 PAPER p CENTER] 

120 PRINT"PAPIER"5p CENTER] 

130 FOR n=0 TO 15 CENTER] 

140 PEN n CENTER] 

150 PRINT"STYLO";n CENTER] 

160 NEXT n CENTER] 

170 FOR t=l TO vitesse*2 CENTER] 

180 NEXT t,p CENTER] 

190 MODE 1 CENTER] 

200 BORDER 1 CENTER] 

210 PAPER CENTER] 

220 PEN 1 CENTER] 

230 INK 0,1 CENTER] 

240 INK 1,24 CENTER] 

run CENTER] 



IMPORTANT 

Dans ce programme, comme dans les chapitces suivants et les listages du manuel, les 
mots cles du BASIC apparaissent en majuscules. II s'aflichent ainsi sur la demande 
d'une instruction LIST. II est generalement preferable de taper les instructions et les 
programmes en minuscules pour mieux detecter les erreurs de frappe lors des listages 
des programmes (les mots cles mal orthographies ne sont alors pas convertis en majus- 
cules). 

Jusqu'a la fin de ce cours elementaire, les programmes sont listes en majuscules et en 
minuscules afin de vous familiariser avec ce procede. 

Un nom de variable, x ou $ par exemple, ne sera pas converti en majuscule lors du 
LISTage du programme, bien qu'il soit reconnu par le programme de toute facon. 



Attention 

A partir de maintenant, nous ne preciserons plus de taper [ENTER] a la fin de chaque 
ligne. Nous supposons que vous en avez pris le reflexe. 



Graphiques 

II y a un certain nombre de caracteres dans la memoire de l'ordinateur. Pour afficher Tun 
de ces caracteres, on utilise le mot reserve : 

chr$< ) 

Entre les parentheses, on entre le numero du symbole (entre 32 et 255). 

Faites [CTRL], [SHIFT] et [ESC] pour la remise a zero, puis tapez : 

print chr*<250) 

N'oubliez pas d'appuyer sur [ENTER]. Sur l'ecran apparait le caractere N° 250, qui 
represente un homme marchant vers la droite. 

Pour afficher tous les caracteres et symbolbs avec leurs numeros, tapez le programme sui- 
vant, en n'oubliant pas d'appuyer sur [ENTER] apres chaque ligne. 

10 FOR n=32 TO 255 
20 PRINT n;CHR$<n); 
30 NEXT n 

run 

Vous trouverez au chapitre « Pour information... » tous les caracteres accompagnes de 
leurs numeros. 



LOCATE (place le curseur) 

On se sert de cette commande pour mettre le curseur a un certain endroit de l'ecran. Sans 
la commande LOCATE, le curseur se trouve en haut et a gauche de l'ecran, ce qui corres- 
pond en coordonnees x,y a 1,1 (x etant la position horizontal, y la position verticale). Eri 
Mode 1, il y a 40 colonnes et 25 lignes. Pour placer un caractere en haut au milieu de 
l'ecran, il faut indiquer x = 20 et y= 1. Essayons : 

mode 1 ...l'ecran s'efface ; le curseur se trouve en haut, a gauche. 

10 LOCATE 20,1 

20 PRINT CHRK250) 

run 



Pour verifier qifil s'agit bien du haut de 1'ecran, tapez : 

border 

Le cadre sera noir et vous verrez le petit bonhomme au milieu de la ligne superieure. 

En Mode 0, il n'y a que 20 colonnes, mais toujours 25 lignes. Si vous tapez : 

ffiode 
run 

...le bonhomme apparait en haut a droite de 1'ecran, car la 20eme colonne est la derniere 
du mode 0. 

En mode 2, il y a 80 colonnes et 25 lignes. A Taide du meme programme, vous devinez 
certainement ou va apparaitre le petit bonhomme. Tapez : 

mode 2 
run 

Revenez au Mode 1, en faisant : 
mode 1 

A vous maintenant de faire varier les nombres apres locate et dans CHR$ ( ). Pour 
Texemple, essayez : 

locate 20, 12:print chr$(240) 
Vous voyez une fleche au centre de Tecran. Dans cette instruction : 

20 est la coordonnee horizontale (comprise entre 1 et 40) 
1 2 est la coordonnee verticale (comprise entre 1 et 25) 
240 est le numero du caractere (compris entre 32 et 255) 

Pour voir le caractere 250 repete sur Tecran, il suffit de taper : 

10 CLS 

20 FOR X=l TO 39 

30 LOCATE X,20 

50 PRINT CHR$(250) 

60 NEXT X 

70 GOTO 10 

run 

Faites [ESC] deux fois pour interrompre le deroulement. 



Pour effacer le caractere precedent avant cTafficher le suivant, tapez : 

50 PRINT '• " ;CHR*(250) 
(La nouvelle ligne 50 remplace automatiquement la precedente). 
Maintenant, tapez : 

run 

FRAME 

Pour que le mouvement du caractere soit plus joli, ajoutez la ligne suivante : 

40 FRAME 

La commande FRAME synchronise le mouvement de l'objet affiche sur la frequence de 
balayage de la trame d'affichage. Si cette notion vous parait trop technique, rappelez- 
vous simplement que cette commande sert a deplacer harmonieusement sur Tecran des 
caracteres ou des graphiques. 

On peut encore ameliorer ce programme en ajoutant des petites pauses et en utilisant 
d'autres caracteres. 

Pour ce faire, tapez : 
list 

Puis ajouter les lignes suivantes au programme : 



70 FOR n=l TO 300:NEXT n 

80 FOR x=39 TO 1 STEP -1 

90 LOCATE x,20 

100 FRAME 

110 PRINT CHR*<251) : " " 

120 NEXT x 

130 FOR n=l TO 300:NEXT n 

140 GOTO 20 

run 



PLOT (determine un point sur l'ecran) 

Contrairement a la commande LOCATE, PLOT sert a fixer la position du curseur 
graphique, utilisant les coordonnees des pixels (un pixel est la plus petite unite de l'ecran). 

Remarque : le curseur graphique, different du curseur des caracteres, n'est pas visible. 

II y a 640 pixels horizontaux sur 400 verticaux. Les coordonnees x et y sont definies par 
rapport au coin inferieur gauche de l'ecran, qui a pour coordonnees 0,0. Contrairement 
a la commande LOCATE, appliquee aux caracteres, ces coordonnees sont les memes en 
Mode 0, 1 ou 2. 

L'ordinateur ayant ete remis a zero a l'aide de [CTRL] [SHIFT] et [ESC], essayez : 

plot 320,2(319 

Un petit point apparait au centre de l'ecran. 

Changeons de Mode en tapant : 

mode 

plot 320,200 

Le point se trouve toujours au milieu de l'ecran, mais agrandi. Changez a nouveau de 
mode et tapez la meme commande pour voir le resultat en mode 2 : 

mode 2 
plot 320,200 

Le point est toujours au centre, mais beaucoup plus petit. 

Essayez de dessiner des points sur l'ecran avec les differents modes pour vous habituer a 
la commande PLOT. Revenez ensuite en Mode 1 et videz l'ecran en tapant : 

mode 1 



DRAW (Dessine une ligne) 

Remise a zero : [CTRL] [SHIFT] et [ESC]. La commande DRAW dessine une ligne a 
partir de la position du curseur graphique. Pour mieux comprendre, dessinons un rectan- 
gle sur l'ecran avec le programme suivant. 

On commence par placer le curseur graphique avec la commande PLOT. Puis on dessine 
une ligne a partir de ce point, vers le coin superieur gauche, puis vers la droite, etc... 
Tapez : 



5 CLS 

10 PLOT 10, 10 

20 DRAM 10,390 

30 DRAW 630,390 

40 DRAW 630, 10 

50 DRAW 10, 10 

60 GOTO 60 
run 

Actionnez [ESC] deux fois pour sortir du programme. 

(Dans ce programme, l'ordinateur boucle indefiniment a la ligne 60 jusqu'a ce que vous 
Pinterrompiez en appuyant deux fois sur la touche [ESC]. Ce type destruction evite 
Interruption automatique du programme apres la derniere ligne et l'afflchage du mes- 
sage Ready). 

Ajoutez maintenant les lignes suivantes pour dessiner un deuxieme rectangle a l'interieur 
du premier : 

60 PLOT 20,20 
70 DRAW 20,380 
80 DRAW 620,380 
90 DRAW 620,20 
100 DRAW 20,20 
110 GOTO 110 
run 

Appuyez sur deux fois [ESC] pour sortir du programme. 

MOVE 

La commande MOVE fonctionne comme PLOT, c'est-a-dire que le curseur graphique 
se place sur le point des coordonnees x,y sans tracer le pixel au nouvel emplacement du 
curseur. 

Tapez : 

els 

move 639,399 

Bien que nous ne le voyons pas a l'ecran, le curseur graphique se trouve maintenant dans 
Tangle superieur droit. 

Mettons cette position en evidence en tragant une ligne a partir de ce point vers le centre 
de l'ecran, Tapez : 

draw 320,200 



Cercles 

On peut dessiner des cercles a Taide des commandes PLOT ou DRAW. Pour dessiner un 
cercle, vous pouvez placer les coordonnees x et y de chaque point de sa circonference. Sur 
la figure suivante, un point « p » peut etre place avec la commande PLOT, en utilisant les 
coordonnees x et y. 

x = 190tcosU) 

y=190$5in (a) 




Positionnement du centre (Pun cercle 

Dans les programmes precedents, on avait fixe le centre par rapport au coin inferieur 
gauche de Tecran. Pour tracer un cercle au milieu de Fecran, il faut placer son centre aux 
coordonnees 320 et 200, puis dessiner tous les points du cercle par rapport a ce centre en 
ajoutant les coordonnees de ce dernier. Voici un programme pour obtenir un cercle : 



new 




10 


CLS 




20 


DEG 




30 


FOR *=1 TO 360 


40 


MOVE 


320,200 


50 


DRAW 


320+190*COS(a) 


60 


NEXT 




run 





2flB + 19B*SIN-(a) 



Le mot cle NEW precedant Tentree du programme remet la memoire a zero (comme une 
reinitialisation), sans toutefois effacer Tecran. 

Le rayon du cercle peut etre reduit en diminuant le nombre 190 (nombre de pixels). 

Pour obtenir un cercle determine d'une maniere differente (en radians), enlevez la ligne 
20 en tapant : 

20 

Pour dessiner un cercle plein (un disque) avec des lignes tracees a partir du centre, modi- 
fiez (EDIT) la ligne 50 en remplacant le mot PLOT par le mot DRAW. Elle devient : 

50 DRAW 320+l?0*COSU) ,200+i90*SIN(a) 

Essayez maintenant avec et sans la ligne 20. 

Notez que dans la ligne 60 de ce programme, NEXT n'est pas suivi de a. On peut mettre 
seulement NEXT ; Tordinateur determine alors a quel FOR il se rapporte. Dans les pro- 
grammes contenant de nombreux FOR et NEXT, il est toutefois preferable d'ajouter la 
variable apres NEXT afin de mieux s'y retrouver. 



ORIGIN 

Dans le programme precedent, on s'est servi de la commande MOVE pour fixer le centre 
du cercle, puis on a ajoute les coordonnees x,y a celles du centre. Au lieu de cela, nous 
pouvons utiliser la commande ORIGIN (attention, pas de E a ORIGIN, c'est un mot 
reserve). Elle place les coordonnees x et y de chaque point en fonction d'ORIGIN. Veri- 
Fions ceci avec le programme : 

new 

IB CLS 

20 FOR i*l TG 360 

30 ORIGIN 320,200 

40 PLOT 190$COS(a) , 190ISINU) 

50 NEXT 

run 



Pour obtenir quatre petits cercles sur l'ecran, entrons le programme suivant : 
new 

10 CLS 

20 FOR a=l TO 360 
30 ORIGIN 196,282 
40 PLOT 50*CQS<a),50*SIN(a) 
50 ORIGIN 442,282 
60 PLOT 50tCQS(a),50tSIN(a) 
70 ORIGIN 176,116 
80 PLOT 50tCOS(a),50*SIN(a) 
90 ORIGIN 442,116 
100 PLOT 50SCOS(a),50tSINU) 
110 NEXT 
run 

Pour experimenter une autre methode de creation d'un cercle, tapez le programme : 

new 

10 MODE 1 

20 ORIGIN 320,200 

30 DEG 

40 MOVE 0,190 

50 FOR a=0 TO 360 STEP 10 

60 DRAM 190tSIN(a),190tCOS(a) 

70 NEXT 

run 

Cette fois, une ligne est tracee (DRAW) de coordonnee en coordonnee sur l'ensemble de 
la circonference. Le tra9age est nettement plus rapide que le positionnement des points. 

Une fois encore, observez la consequence du retrait de la commande DEG par suppres- 
sion de la ligne 30 et relancez le programme. 

FILL 

La commande FILL sert a remplir une zone d'ecran delimitee par une courbe, le bord de 
l'ecran, ou d'une fenetre graphique. 

Reinitialisez a l'aide des touches [CTRL] [SHIFT] et [ESC], puis tapez : 

new 

10 CLS 

20 MOVE 20,20 

30 DRAW 620,20 

40 DRAW 310,380 

50 DRAW 20,20 

run 



Un triangle apparait a l'ecran. Placez le curseur graphique au centre de l'ecran en tapant : 
(nave 320,200 

A l'aide du mot cle FILL suivi d'un numero de stylo (3 par exemple), remplissez l'ecran a 
partir de la position du curseur graphique (centre de l'ecran) jusqu'aux limites tracees. 
Tapez : 

fill 3 

Amenez maintenant le curseur graphique a l'exterieur du triangle : 
move 0,0 

Observez ce qui se passe si vous tapez : 

fill 2 

A l'aide du stylo numero 2, l'ordinateur a rempli la zone comprise entre les lignes tracees 
et les bords de l'ecran. 

Modifiez le programme et regardez ce qui se passe : 

50 DRAW 50,50 

60 MOVE 320,200 

70 FILL 3 
run 

Toute interruption de lignes sur l'ecran laisse « passer » la couleur du stylo. 

Ce phenomene est illustre par le remplissage d'un cercle positionne a l'ecran, puis d'un 
cercle trace. Tapez : 



new 

10 CLS 

20 FOR a=l TO 360 

30 ORIGIN 320,200 

40 PLOT 190tCO9<a>,190*SIN<a) 

50 NEXT 

60 MOVE -188,0 

70 FILL 3 

run 



Tapez maintenant : 

new 

10 MODE 1 

20 ORIGIN 320,200 

30 DEG 

40 MOVE 0, 190 

50 FOR d = TO 360 STEP 10 

60 DRAW 190ICQS(d),190*SIN(d) 

70 NEXT 

80 MOVE -188,0 

90 FILL 3 

run 

Vous pouvez rendre la circonference du cercle invisible en utilisant la meme couleur pour 
le stylo et le papier. Ajoutez cette ligne : 

45 GRAPHICS PEN 2: INK 2,1 
run 

La commande GRAPHICS PEN selectionne le stylo pour le tracage des graphiques. La 
commande INK specifie la couleur d'encre de ce stylo qui, en Toccurrence, est la meme 
que celle du papier (ici, numero de couleur 1). 



Complements d'information... 

Consul tez la partie « Graphiques » du chapitre « A vos heures de loisir... » pour un guide 
complet des possibilites graphiques du CPC664. 

Pour terminer ce chapitre, voici quelques programmes de demonstration graphique inte- 
grant des commandes et des methodes desormais a votre portee. Chacun de ces program- 
mes trace des motifs en continu. 

10 BORDER 0:GRAPHICS PEN 1 

20 ffl=CINT (RND*2)sM0DE m 

30 il=RND*26ii2=RND*26 

40 IF ABS(il-i2)<18 THEN 30 

50 INK 0,il:INK 1,12 

60 s=RND*5+3:0RIGIN 320,-100 

70 FOR x=-1000 TO STEP s 

80 MOVE 0,0:DRAW x,300:DRAW 0,600 

90 MOVE 0,0:DRAW -x,300:DRAW 0,600 

100 NEXTsFOR t=l TO 2000:NEXT :60TQ 20 

run 



10 MODE ti&ORDER OiPAPER 

20 GRAPHICS PEN 2: INK 0,0 

30 EVERY 2200 GOSUB 150' 

40 FLAG=0:CLG 

50 INK 2, 14 + RNDU2 

60 B7. = RND*5+1 

70 C7. = RND*5+1 

80 ORIGIN 320,200 

90 FOR A=0 TO 1000 STEP PI/30 

100 X"/.= 100*COS(A) 

110 MOVE XX, XV. 

120 DRAW 200*COS<A/B7.),200*SIN(A/C7.) 

130 IF FLAG=1 THEN 40 

140 NEXT 

150 FLAG=l:RETURN 

run 



10 NODE li BORDER 0:DEG 

20 PRINT"VEUILLEZ PATIENTER " 

30 FOR N*l TO 3 

40 INK 0,0:INK 1 ,26: INK 2,6:INK 3,18 

50 IF N=t THEN SA=120 

60 IF N=2 THEN SA=135 

70 IF N=3 THEN SA=150 

80 IF N=l THEN ORIGIN 0,-50,0,640,0,400 ELSE ORIGIN 0,0,0,64 

0,0,400 

90 DIM CX(5),CY(5),R(5),LC(5) 

100 DIM NP(5) 

110 DIM PX*/. (5, 81) ,PY7.(5,81) 

120 ST=l:CXU)=320:CY(l)=200:R(l)=80 

130 FOR ST=1 TO 4 

140 R(ST+l)=R(ST)/2 

150 NEXT ST 

160 FOR ST=1 TO 5 

170 LC(ST)=0:NP(ST)=0 

180 NP(ST)=NP(ST)+1 

190 PX'/i(ST,NP(ST))=R(ST)»SIN(LC(ST)) 

200 PY7. (ST,NP(ST))=R(ST)ICOS(LC(ST) ) 

210 LC(ST)=LC(ST)+360/R(ST) 

220 IF LC(ST)<360 THEN 180 



230 PXX(ST,NP(ST) + 1)=PX*/.(ST,1) 

240 PYX(8T,NP(8T)+l)"PYX(8T,l) 

250 NEXT ST 

260 CLS:CJ=RESTE(1):CJ=RESTE(2> 

270 CJ*RESTE(3)!lNK 1,2:ST=1 

280 GOSUB 350 

290 LOCATE 1,1 

300 EVERY 25,1 GOSUB 510 

310 EVERY 15,2 GOSUB 550 

320 EVERY 5,3 GOSUB 590 

330 ERASE CX,CY,R,LC,NP,PXX,PY'/.:NEXT 

340 GOTO 340 

350 CXX=CX(ST):CY7.=CY(ST):LC(ST)=0 

360 FOR X7.=i TO NP(ST) 

370 MOVE CXX,CY"/. 

380 DRAW CXX+PX7.(ST,XX),CYX+PY7.(ST,XX),1 + (ST MOD 3) 

390 DRAW CX7.+PXy.(ST,X"/.+ l),CY"/.+PY'/.(ST,X7.+ l),l + (ST MOD 3) 

400 NEXT U 

410 IF ST=5 THEN RETURN 

420 LC(ST)=0 

430 CX(ST+1)=CX(ST)+1.5$R(ST)»SIN(SA+LC(ST)) 

440 CY(ST+1)=CY(ST)+1.5*R(ST)*CQS<SA+LC(ST)) 

450 ST=ST+1 

460 GOSUB 350 

470 ST=ST-1 

480 LC(ST)=LC(ST)+2tSA 

490 IF (LC(ST) MOD 360)<>0 THEN 430 

500 RETURN 

510 IKU) = 1+RND*25 

520 IF IK(1)*IK<2) OR IK(1)=IK<3) THEN 510 

530 INK 1,IK(1) 

540 RETURN 

550 IK(2)=1+RND*25 

560 IF IK(2) = IK(1) OR I K ( 2 ) = I K ( 3 ) THEN 550 

570 INK 2,IK(2) 

580 RETURN 

590 IK(3)=t+RNDI25 

600 IFIK(3)=IK(1) OR IK(3)=IK(2) THEN 590 

610 INK 3,IK<3) 

620 RETURN 



Partie 9 : Utilisation des sons 



Les effets sonores sont produits par un haut-parleur integre a Tordinateur. Si vous utilisez 
Tadaptateur Peritel et un poste TV, baissez le volume au minimum. 

Le niveau sonore est regie par le bouton VOLUME, place sur le cote droit de l'ordina- 
teur. Le son peut aussi passer de la prise STEREO de Fordinateur a Tentree auxiliaire de 
votre chaine hi-fi. Vous pouvez ainsi ecouter vos programmes sonores en stereo sur vos 
haut-parleurs ou votre casque d'ecoute. Consultez la partie 2 du Cours Elementaire pour 
connecter le casque a la prise stereo de Fordinateur. 



La commande SOUND 

La commande du son, SOUND, comporte sept parametres. Si les deux premiers doivent 
etre precises, les autres sont facultatifs. La commande est ecrite de la maniere suivante : 

SOUND < etat de canal >, <periode sonore >, <duree>, < volume >, 
<enveloppe de volume >, <enveloppe de ton>, <bruitage>. 

D'apparence complexe, ces parametres sont en fait faciles a identifier. Nous allons les 
etudier un par un. 



Etat de canal 

Pour plus de simplicite, nous allons provisoirement Tassimiler au canal sonore lui-meme. 
II existe trois canaux sonores et nous nous occuperons pour Tinstant de 1' < etat de canal > 
numero 1. 



Periode sonore 

La < periode sonore > concerne la definition technique de la hauteur de note : do, re, mi, 
fa, sol, la, si. Chaque note est associee a un nombre representant sa < periode sonore >. 
En vous reportant au chapitre « Pour information... », vous verrez que la note do corres- 
pond a une periode de 478. 



Reinitialise/ Tordinateur [CTRL] [SHIFT] et [ESC] puis tapez : 

10 SOUND 1,478 
run 

Vous entendrez un do pendant 0,2 seconde. 

Si vous ne percevez aucun son, assurez-vous que le volume de votre ordinateur n'est pas 
sur zero. Tapez RUN une nouvelle fois. 



Duree 

Ce parametre determine la duree du son et s'exprime en centiemes de seconde. En 
Tabsence de specification, Tordinateur fixe un chiffre de 20, soit 0,01 x 20, ce qui donne 
bien une duree de 0,2 seconde. 

Pour faire durer la note une seconde, il faudra done lui attribuer un parametre de 1 00 ; 
pour 2 secondes, 200. Tapez : 

10 SOUND 1,478,200 
run 

La meme note do dure 2 secondes. 



Volume 

Ce parametre determine le volume de depart d'une note. Ce nombre varie de a 1 5. 
correspond au volume minimum et 15 au volume maximum. En Tabsence de specifica- 
tion, Tordinateur fixe un chiffre de 1 2. Tapez : 

10 SOUND 1,478,200,5 
run 

Remarquez le volume du son, puis tapez un numero de volume superieur : 

10 SOUND 1,478,200, 15 
run 

Vous devez obtenir un son plus fort. 



Enveloppe de volume 

Pour faire varier le volume (fun son pendant son emission, vous pouvez specifier une 
enveloppe de volume a Taide de la commande EN V. Vous avez la possibility de fixer plu- 
sieurs <enveloppes de volume > differentes, chacune ayant son propre numero de refe- 
rence, tout comme la commande SOUND. 

Si vous avez cree une enveloppe de reference N° 1 et que vous desiriez Tutiliser dans une 
commande SOUND, tapez 1 a Tendroit requis pour le parametre de Tenveloppe. Nous 
expliquerons bientot la creation d'une enveloppe de volume. 



Enveloppe de tonalite 

Vous pouvez utiliser la commande ENT pour faire varier le ton d'une note pendant son 
emission. Vous avez. la possibility de fixer plusieurs enveloppes de tonalite qui, comme la 
commande SOUND, ont chacune un numero de reference. Si vous creez une enveloppe 
de tonalite de 1 et que vous faites appel a la commande SOUND, tapez 1 a l'endroit 
requis pour le parametre de l'< enveloppe de tonalite >. Nous expliquerons bientot la 
creation d'une enveloppe de tonalite. 



Bruitage 

C'est le dernier parametre de la commande SOUND. Tl peut varier de 1 a 31 . Ajoutez le 
parametre 2 a la fin de la commande SOUND et ecoutez Teffet obtenu. Faites-Ie passer 
a 27 et constatez la difference. Tapez : 

10 SOUND 1,478,200, 15, ,,2 

Remarquez que les deux parametres precedant le parametre de < bruitage > (,„) ont ete 
omis. lis indiquent ainsi Tabsence d'< enveloppes de volume > et de < tonalite >. 



Creation d'une enveloppe de volume 

Elle s'obtient par la commande EN V. Sous sa forme de base, cette commande possede 4 
parametres. Elle se presente ainsi : 

ENV < numero d'enveloppe>, <nombredepas>, < amplitude de pas >, <duree 
dupas> 

Comme precedemment, nous allons etudier ces parametres un par un. 



Numero d'enveloppe 

C'est un numero de reference (entre et 15) appelable par la commande SOUND. 

Nombre de pas 

Ce parametre specific le nombre de pas devolution du volume sonore entre le debut du 
son et sa fin. Par exemple, pour une note de 10 secondes, vous pouvez obtenir 10 pas 
d'une seconde chacun. Dans ce cas-la, le parametre du < nombre de pas> sera egal a 1 0. 

II peut varier de a 1 27. 



Amplitude du pas 

Chaque pas peut faire varier le volume de a 1 5 par rapport au pas precedent. Les 16 
volumes differents sont les memes que ceux de la commande SOUND. Cependant, le 
parametre d'< amplitude du pas> peut varier de -128 a +127, car le volume revient a 
apres avoir depasse 15 (16, 32, 48, 64, 80, 96, etc.). 



Duree du pas 

Ce parametre specifie la duree de chaque pas par increment de 0,01 seconde. II varie de 
a 255, soit une duree maximale de 2,56 secondes (0 est considere comme 256). 

Notez que le < nombre de pas> multiplie par la < duree du pas> ne doit pas depasser le 
parametre de < duree > de la commande SOUND, car le son cesserait avant que le der- 
nier pas n'ait ete atteint (entrainant la perte du reste de l'enveloppe de volume). 

De meme, si le parametre de < duree > de la commande SOUND depasse le < nombre 
de pas> multiplie par la < duree du pas>, le son se poursuit apres avoir atteint le dernier 
pas et garde le volume final. 

Pour tester l'enveloppe de volume, tapez le programme : 

10 ENV 1,10,1,100 

20 SOUND 1,284,1000,1,1 

run 



La ligne 20 specifie un son d'une periode de 284 (LA international), durant 10 secondes 
avec un volume de depart de 1 , utilisant l'enveloppe de volume numero 1 constitute de 
10 pas, elevant chaque pas d'une unite de volume et durant une seconde (100 x 0,01 
sec). 

Changez la ligne 1 de la maniere suivante et faites run chaque fois pour entendre la 
difference : 

10 env 1 , 100, 1, 10 

10 env 1,100,2,10 

10 env 1,100,4,10 

10 env 1,50,20,20 

10 env 1,50,2,20 

10 env 1,50,15,30 

Essayez finalement : 

10 ENV 1,50,2,10 

Vous pouvez constater que le niveau de son reste constant a mi-chemin. En effet, le nom- 
bre de pas (50) et l'ecart entre les pas (0, 1 seconde) donnent une variation du son de 5 
secondes seulement, alors que la <duree> du son dans la commande SOUND (la ligne 
20) est de 1 000, soit 10 secondes. 

Experimentez les types de sons que vous pouvez creer. 

Si vous le desirez, vous pouvez creer des enveloppes de volume plus complexes. Les 3 
parametres <nombre de pas>, < amplitude du pas> et <duree du pas> peuvent etre 
repris jusqu'a quatre fois a la fin de la commande ENV, permettant de specifier des por- 
tions d'enveloppe differentes. 



Creation d'une enveloppe de tonalite 

La commande d'enveloppe de tonalite est ENT. Sous sa forme de base, elle a 4 parame- 
tres. Elle se presente sous la forme : 

ENT < numero d'enveloppe > , < nombre de pas > , < variation de periode sonore 
affectee a chaque pas>, <duree du pas> 

Regardons ces parametres un par un. 



Numero d'enveloppe 

C'est le numero d'appel pour la commande SOUND. II peut prendre une valeur de a 
15. 



Nombre de pas 

Ce parametre fixe le nombre de pas de la tonalite du son entre son debut et sa fin. Si, par 
exemple, une note dure 10 secondes, vous pouvez obtenir 1 pas d'une seconde chacun. 
Le parametre < nombre de pas> est alors egal a 1 0. 

II peut varier de a 239. 



Variation de periode sonore affectee a chaque pas 

Chaque pas peut faire varier la hauteur du son de -1 28 a +1 27 par rapport au pas prece- 
dent. Les pas negatifs augmentent la hauteur de la note. Les pas positifs Tabaissent. La 
periode la plus courte correspond a 0. Vous devez tenir compte de ces notions lorsque 
vous definissez une enveloppe de tonalite. Vous trouverez toutes les possibilites de 
periodes de ton au chapitre « Pour information... ». 



Duree du pas 

Ce parametre specifie la duree de chaque pas par increment de 0,01 seconde. II varie de 
a 255, soit une duree maximale de 2,56 secondes (0 est considere comme 256). 

Le < nombre de pas> multiplie par la < duree du pas> ne doit pas depasser le parametre 
de <duree> de la commande SOUND, car le son cesserait alors avant que le dernier pas 
n'ait ete atteint (dans ce cas, le reste de F enveloppe de tonalite est perdu). 

De meme, si le parametre de < duree > de la commande SOUND depasse le < nombre 
de pas> multiplie par la < duree du pas>, le son se poursuit apres avoir atteint le dernier 
pas et garde la tonalite finale. 

Pour tester Tenveloppe de tonalite, tapez le programme ci-dessous : 

10 ENT 1,100,2,2 

20 SOUND 1,284,200, 15, ,1 

rur 

La ligne 20 specifie un son ayant une periode de 284 (LA international), durant 2 
secondes avec un volume de depart de 15 (max), depourvu d'enveloppe de volume 
(constatez Tomission du parametre : „) mais dote d'une enveloppe de tonalite N° 1 , 

La ligne 10 affecte au N° 1 une enveloppe de tonalite constitute de 100 pas, augmen- 
tant la periode de 2 unites a chaque pas et ayant chacun une duree de 0,02 seconde 
(2 x 0,01 s). 



Modifiez maintenant la ligne 10 selon les trois manieres indiquees et lancez le pro- 
gramme pour entendre Feffet obtenu. 

10 ent i , 1(30,-2,2 
It) ent 1, 10,4,20 
10 ent 1, 10,-4,20 

Remplacez la commande SOUND et Fenveloppe de tonalite en tapant : 

10 ENT 1,2, 17,70 

20 SOUND 1,142, 140, 15,, 1 

30 GOTO 10 

r uri 

Appuyez deux fois sur [ESC] pour interrompre le programme. 

Vous pouvez maintenant combiner Fenveloppe de volume, Fenveloppe de tonalite et la 
commande SOUND pour obtenir des sons differents. Commencez par taper : 

10 ENV 1, 100, 1,3 
20 ENT 1, 1.00,5,3 
30 SOUND 1,284,300, 1, 1,1 

run 

Puis remplacez la ligne 20 par : 

20 ENT 1,100,-2,3 
run 

Remplacez maintenant toutes les lignes par : 

10 ENV 1,100,2,2 

20 ENT 1,100,-2,2 

30 SOUND 1,284,200,1, 1,1 

run 

Si vous desirez creer des enveloppes de tonalite plus complexes, vous pouvez repeter jus- 
qu'a qua t re fois les trois parametres : <nombre de pas>, < variation de periode sonore 
affectee a chaque pas> et <duree du pas> a la Fin de la commande ENT aFin de speciFier 
des portions differentes pour une meme enveloppe. Essayez plusieurs versions. Ajoutez a 
la commande SOUND le parametre permettant d'ajouter du bruitage et des portions 
supplementaires d'enveloppe de tonalite et de volume. 

Le chapitre « Liste complete des mots cles du BASIC AMSTRAD CPC664 » decrit en 
detail les commandes de son. Si vous desirez decouvrir les possibilites sonores de votre 
ordinateur, reportez-vous au paragraphe « Sons et musique » du chapitre « A vos heures 
de loisir... ». 



Partie 10 : Introduction a AMSDOS et 
CP/M.„ 

Qu'est-ce qu' AMSDOS ? 

A la mise sous tension ou lors d'une reinitialisation, le systeme se place par defaut sous 
AMSDOS, abreviation d'AMstrad Disc Operating System (systeme d'exploitation de dis- 
que AMSTRAD), offrant les commandes de traitement de fichiers : 

load "nomfich" 

run "noaifich" 

save "nomfich" 

chain "nomfich" 

merge "nomfich" 

chain merge "nonfich" 

openin "noatf ich H 

openout "nomf ich" 

closein 

closeout 

cat 

input #9 

line input #9 

list #9 

print #9 

write #9 

AMSDOS fournit en outre plusieurs commandes supplementaires de gestion de dis- 
quettes. 

Ces commandes, appelees commandes externes, sont precedees du symbole | (vous entrez 
cette barre | en appuyant simultanement sur les touches [SHIFT] et @) 

Les commandes externes les plus frequentes sont : 

!a 
lb 

I tape (qui peut etre subdivisee en | tape. in et en | tape. out) 
| disc (qui peut etre subdivisee en | disc. in et en | disc. out) 

Les commandes | a et | b permettent aux systemes a deux unites de disquettes d'indiquer 
a Tordinateur Tunite vers laquelle il doit diriger les commandes ulterieures. 



Si vous tapez, par exemple : 

ia 

load "nomfich" 

...vous indiquez a l'ordinateur qu'il doit charger en memoire le programme specifie, se 
trouvant sur une disquette placee dans l'unite A. 

Si vous ne specifiez pas | a ou | b lors de la reinitialisation, le systeme exploite par defaut 
l'unite A. Si vous n'utilisez que l'unite de disquette integree au systeme, elle est alors 
consideree comme l'unite A et vous n'avez done aucun besoin de specifier | a ou | b. Avec 
un systeme a une seule unite, un | b fait apparaitre le message d'erreur suivant : 

Drive Bs disc missing 
Retry, Ignore or Cancel 

...auquel vous devez repondre C (pour cancel - annuler). 



Que faire pour utiliser une cassette ? 

La commande | tape indique a l'ordinateur qu'il doit gerer le chargement, la sauvegarde, 
etc., vers une unite de cassette externe et non vers la disquette. Si | tape n'est pas entre, 
l'ordinateur, a chaque mise en route ou reset, dirige toutes les operations automati- 
quement vers la disquette. Pour revenir sur disquette apres un | tape, vous devez rentrer 
la commande : | disc. Par contre, vous pouvez avoir besoin de charger un programme sur 
cassette et de sauvegarder des donnees sur disquette. Faites alors appel a la commande : 

i tape. in 

Cette commande dit a l'ordinateur : tu dois lire sur la cassette et ecrire sur la disquette. 

Inversement, pour lire le disque et ecrire sur la cassette, vous devez entrer la commande 
| disc. in pour annuler le | tape. in entre precedemment, puis | tape. out pour diriger 
toutes sorties de donnees vers la cassette. 

On peut ainsi avoir des | tape. in et des | tape. out qui vont annuler des | disc. in et des 
I disc. out, et vice-versa. 

Vous trouverez des details plus precis concernant les entrees et sorties aux chapitres « Uti- 
lisation des disquettes et des cassettes » et « Les elements de l'AMSDOS et du 
CP/M »,plus loin dans ce manuel. 

La partie 7 du Cours Elementaire decrit le formatage d'une disquette vierge a l'aide de 
la disquette systeme CP/M et la duplication des programmes d'une disquette a 1'autre. 
Considerant les informations ci-dessus, les commandes : 



Itape Idisc itape.in Itape.out idisc. in [disc. out ia !b 

...vous permettront de charger et de sauvegarder vos donnees sur cassette (si une unite de 
cassette est connectee a Tordinateur) ou disquette, dans Tunite A ou B. 

Les commandes externes : 

Idir Idrive !era Iren laser 

...sont traitees dans le chapitre « Les elements de TAMSDOS et du CP/M ». 

Duplication/copie a Faide de la disquette systeme CP/M 

Pour copier le contenu d'une disquette sur une autre, servez-vous des utilitaires 
DISCCOPY et COPYDISC du CP/M. Si vous ne disposez que d'une seule unite de dis- 
quette, utilisez DISCCOPY. 

Si vous avez connecte une unite de disquette supplemental, vous trouverez plus facile 
et plus rapide d'utiliser COPYDISC. 

Copie a Faide de DISCCOPY 

Inserez la disquette systeme CP/M et tapez : 
Icpm 

Apres affichage du message A> , tapez disccopy. 

L'ordinateur demande : 

Please insert source disc into drive A then press any key 

Retirez la disquette systeme CP/M et inserez celle que vous desirez copier. Pour dupliquer 
la disquette systeme, il suffit de la laisser dans 1'unite. 

Apres insertion de la disquette source et activation d'une touche, le message suivant s'af- 
fiche : 

Copying started 
Reading track to 7 



Puis, Tordinateur vous demande : 

Please insert destination disc into drive A 
then press any key 

...vous enjoignant d'enlever la disquelle source pour la remplacer par la disquette destina- 
tion, avant d'actionner n'importe quelle toucne. 

Attention : la disquette qui va recevoir la copie sera totalement effacee. 

Si cette meme disquette n'a pas ete formatee, elle le sera automatiquement pendant la 
copie. 

La disquette une fois inseree, tapez alors sur n'importe quelle touche, provoquant la 
reponse : 

Writing track to 7 

Puis Tordinateur vous invite a inserer a nouveau la disquette source pour la lecture, cette 
fois des pistes 8 a 15. Vous procederez ainsi a des lectures/ecritures successives, 8 pistes a 
la fois, jusqu'a la derniere, c'est-a-dire la piste 39. 

L'ordinateur demande ensuite : 

Do you Want to copy another disc (Y/N): 

Si vous avez termine, repondez IM (NON), puis suivez les instructions sur Tecran pour 
sortir du mode DISCCOPY. Sinon, repondez Y (OUI). 



Copie avec l'utilitaire COPYDISC 

COPYDISC ne peut etre utilise qu'avec un systeme a deux unites de disquette. Cet utili- 
taire permet de copier le contenu d'une disquette sur une autre disquette, de la meme 
fagon que Tutilitaire DISCCOPY precedemment decrit, mais sans vous obliger a enlever 
et remettre les disquettes. 

Si vous avez lu et compris la fapon d'utiliser DISCCOPY, utilisez COPYDISC en proce- 
dant comme suit : 

Inserez la disquette CP/M et tapez : 

icpffl 
Une fois le message A> a Tecran, tapez : 

copydisc 



Suivez les instructions qui apparaissent sur fecran. Le contenu de votre disquette sera 
recopie integralement sur une nouvelle disquette, 8 pistes par 8 pistes, jusqu'a la derniere, 
la piste 39. Comme DISCCOPY, COPYDISC fait lui-meme le formatage, le cas 
echeant. COPYDISC peut etre utilise pour faire la copie de la disquette CP/M elle-meme 
(que vous pourrez soigneusement mettre de cote). 



Verification des disquettes 

La disquette CP/M contient un utilitaire destine a comparer des disquettes entre elles 
pour verifier qu'il n'y a pas eu d'erreurs de copie. 

Si vous avez une seule unite, chargez le CP/M, puis tapez : 
discchk 

(check = verification) 

...et suivez les instructions sur fecran. Si fordinateur detecte une difference entre les deux 
disquettes, le message suivant apparait : 

Failed to verify destination disc correctly! 
(track x sector y) 

Dans le cas contraire, fordinateur continue sa verification par groupe de 8 pistes jusqu'a 
la fin. S'il trouve une erreur, il affiche un avertissement WARNING a la fin de f opera- 
tion avant de vous demander si vous avez une autre disquette a verifier. 

Avec deux unites, la verification peut etre operee beaucoup plus rapidement a faide de 
1' utilitaire CHKDISC. Tout se passe de la meme fagon qu'avec DISCCHK, mais cette 
fois sans la laborieuse manipulation des disquettes toutes les 8 pistes. Entrez le CP/M, 
puis tapez : 

chkdisc 
...et suivez les instructions a fecran. 



Abandon 

On peut quitter une routine CP/M des qu'on le desire en appuyant sur les deux touches 
[CTRL] et C. Vous revenez ainsi au mode direct. 



Faites un essai ; entrez le CP/M et tapez : 
disccapy 

Quand l'ordinateur vous invite a inserer votre disquette, appuyez sur les touches [CTRL] 
et C. Le travail de copie est alors abandonne. 

De plus amples informations a propos des utilitaires DISCCOPY, COPYDISC, 
DISCCHK et CHKDISC ainsi que FORMAT et les autres commandes CP/M, sont 
donnees au chapitre « Les elements de l'AMSDOS et du CP/M ». 

Pour terminer, verifiez que vous avez bien respecte les avertissements signales au debut 
du manuel dans la rubrique « IMPORTANT » : 

REMARQUES RELATIVES A ^INSTALLATION : 5, 6 et 7 

REMARQUES RELATIVES AU FONCTIONNEMENT : 1, 2, 3, 4, 5, 6, 7, 8 et 9 

Void la fin de la partie 10 du Cours Elementaire sur le CPC664. Vous connaissez desor- 
mais la plupart des touches du clavier, les commandes BASIC les plus simples, le forma- 
tage d'une disquette vierge pour sa preparation a Femploi et Fexecution des fonctions de 
base sur disquette comme : LOAD, SAVE, CAT, etc... ainsi que quelques commandes 
elementaires AMSDOS et CP/M. La partie suivante approfondit certains aspects de Fin- 
formatique et du BASIC AMSTRAD. II detaille Tunite de disquette du systeme, presente 
AMSDOS et CP/M et vous initie au nouveau langage de Digital Research : Dr.LOGO. 



Chapitre 2 

Passons aux choses serieuses... 



Apres la lecture du Cours Elementaire, vous savez mettre votre ordinateur 
en marche, lui faire repeter plusieurs fois une meme operation en utilisant 
la boucle FOR NEXT et lui demander de verifier si (IF) une condition est 
remplie pour qu'il execute alors (THEN) une instruction. 

Mais vous devez en avoir assez de voir votre nom s'afficher sur tout 1'ecran et vous vou- 
driez maintenant commencer a faire vraiment de Tinformatique, utile ou amusante. Vous 
trouverez dans le chapitre suivant la liste des mots cles du BASIC AMSTRAD, accompa- 
gnes de tout ce qu'il faut savoir sur leur « syntaxe » et leur fonction. Lorsque vous la 
possederez a fond, votre ordinateur et vous ne connaitrez d'autres limites que celles de 
votre imagination. 

Si c'est la premiere fois que vous vous servez d'un ordinateur, vous ressentirez peut-etre 
quelque apprehension a Pidee de « faire de la programmation ». Rassurez-vous : c'est 
bien plus simple que vous ne Fimaginez et certainement moins complique que les spe- 
cialistes ne voudraient le faire croire avec leur jargon ! Dites-vous que BASIC n'est pas 
une nouvelle langue a apprendre, mais plutot un derive de 1'anglais auquel, pour gagner 
du temps, on a ajoute quelques abbreviations. CLS n'est done pas une formule magique, 
mais la forme abregee de dear Screen (Vide FEcran). 

Finie la peur du BASIC, vous serez bientot surpris de voir comme il est agreable, apres 
quelques heures de programmation, de recolter les premiers fruits de ses efforts. La pro- 
grammation est un exercice passionnant, surtout pour un debutant qui aborde un langage 
et une machine pour la premiere fois. Souvenez-vous bien que, tant que vous n'ecrivez 
pas par inadvertance sur la disquette du systeme d'exploitation CP/M, rien de ce que vous 
entrez au clavier ne peut endommager votre ordinateur. Aussi, n'hesitez pas a innover ! 



Mais par ou commencer ? 

C'est souvent le debut d'un programme qui pose le plus de problemes au neophyte. Evitez 
surtout de vous jeter sur le clavier avant d'avoir reflechi a ce que vous voulez faire. 

Vous devez d'abord chercher a etablir, d'une part, ce que le programme est cense faire et, 
d'autre part, la maniere dont les resultats vous seront presentes, e'est-a-dire ce qui appa- 
raitra a 1'ecran lors de {'execution du programme. 

Une fois ceci etabli, vous pouvez entamer la redaction proprement dite du programme, 
en songeant constamment qu'il doit se derouler sans a-coups du debut a la fin, avec un 
minimum de sauts (GOTO) en tous sens. Un programme bien ecrit doit se lire aisement : 
songez au casse-tete qui vous attend lors de sa mise au point, ou de son « debogage », 
comme on dit en jargon informatique. 



Soyez tranquille, BASIC est un langage extremement tolerant : il vous remettra souvent 
dans le droit chemin d'un simple message d'erreur affiche a l'ecran. Si une idee vous vient 
apres coup, il ne fera aucune difficulte pour inserer une nouvelle ligne entre deux lignes 
existantes. 

Ecrivons un petit programme 

Et maintenant, au travail ! Nous allons ecrire un programme permettant d'enregistrer le 
nom et le numero de telephone de vos amis. Ce sera le programme « Repertoire Telepho- 
nique ». Posons-nous d'abord les deux questions primordiales: « Que doit-il faire ? », et 
« Comment les resultats seront-ils presentes ? » 

Supposons que nous voulions un programme permettant d'enregistrer 100 noms et nume- 
ros de telephone. II suffira d'entrer au clavier le nom d'une personne donnee pour obtenir 
aussitot son numero de telephone. Ce programme devra de plus etre capable d'afficher la 
liste de toutes les informations memorisees, au cas ou nous aurions oublie sous quelle 
forme un nom a ete enregistre. Vous remarquez que nous sommes deja en train de penser 
a la presentation des resultats. 

Tres bien, a vos claviers ! Commengons par le titre : 

10 REM repertoire telephonique 

Donner un titre n'est pas une obligation. II vous aidera pourtant beaucoup a vous y 
retrouver lorsque vous aurez accumule une quantite de programmes. 

Nous voulons done entrer (IN PUT) une chaine de caracteres (un nom) dans une variable. 
Cette variable, nous l'appellerons NOM$. De meme, nous aurons une variable pour les 
numeros de telephone, que nous appellerons TEL$ 

Vous vous souvenez que, dans les exemples de programmes du Cours Elementaire, 
l'instruction INPUT vous avait permis d'affecter une valeur a une variable. Ainsi, avec 
les lignes : 

20 INPUT "entrez le no<n";NQM$ 

30 INPUT "entrez le numero de telephone" j TEL$ 

run 

...nous pourrons entrer un nom (disons « Paul »), puis un numero de telephone (par 
exefnple 1 206 66 60). 

Ces informations sont maintenant stockees par le programme, mais nous n'obtenons 
encore aucun resultat a Tecran. II nous faut done ecrire une partie de programme permet- 
tant de retrouver et d'afficher ces informations. Pour obtenir la valeur actuelle de NOM$ 
et TEL$, on aura recours aux instructions : 

PRINT NOM* 
... et. .. 
PRINT TEL* 



Mais attendez ! Nous avions bien dit qu'avec notre programme nous voulions enregistrer 
jusqu'a 100 noms et numeros de telephone ? Nous n'allons tout de meme pas ecrire 100 
instructions INPUT avec un nom de variable different pour chacune, puis 100 instruc- 
tions PRINT pour afficher la liste a l'ecran !!! Non, bien sur : l'ordinateur resout ce pro- 
bleme au moyen d'un instrument appele « tableau ». Le tableau permet d'affecter a une 
meme variable la « dimension » (le nombre de valeurs) desiree (100 dans notre cas). Pour 
connaitre Tune de ces valeurs, il suffit d'entrer le nom de la variable suivi (entre parenthe- 
ses) du numero de reference correspondant. Ce numero s'appelle un « indice » et une 
expression telle que NOM$(27) s'appelle une « variable indicee ». Nous sommes done 
en mesure, en utilisant une variable numerique x, de travailler sur l'ensemble des valeurs 
NOM$(x) de notre tableau : il suffit de faire prendre a x des valeurs de 1 a 100 dans une 
boucle FOR NEXT(FOR x = 1 TO 100). Chaque foisque x est augmente de 1, 1'indice 
est egalement modifie et designe l'element suivant du tableau, un nom dans ce cas. 

Nous avons besoin, pour les variables NOM$ et TEL$, de deux tableaux de dimension 
100. Avant d'utiliser un tableau, il faut avoir declare sa DIMension. Rempla^ons done 
nos lignes 20 et 30 par ces declarations. 

20 DIM NOM*<100) 
30 DIM TELK100) 

Nos variables ainsi definies, ecrivons un programme permettant d'introduire les noms et 
numeros de telephone dans les tableaux (nous verrons plus tard comment les retrouver). 
Ajoutons les lignes : 

40 FOR k«1 TO 100 

50 INPUT "entrez le nont H 5N0M*(x) 

60 INPUT "entrez ie numero de telephone": TEL$(x ) 

70 NEXT 

run 

Tout cela est fort bien, mais nous n'avons pas l'intention d'entrer les 100 noms en une 
seule fois. De plus, la presentation du programme a Tecran laisse beaucoup a desirer. II 
s'agit maintenant d'y mettre un peu d'ordre. Pour commencer, nous allons, avant chaque 
nouvelle entree, debarrasser Tecran du texte anterieur devenu inutile. C'est Paffaire de 
Pinstruction CLS : 

45 CLS 

Mais comment indiquer a l'ordinateur que, pour le moment, nous avons fini d'introduire 
des donnees ? Bien sur, on peut toujours arreter un programme en frappant la touche 
[ESC], mais alors nos precieux enregistrements seront effaces des que nous donnerons a 
nouveau Tordre RUN ! 



II existe une meilleure solution : a chaque enregistrement d'un nouveau nom, demandons 
au programme de verifier si quelque chose a effectivement ete frappe au clavier, c'est a 
dire si NOM$(x) n'est pas une chaine vide, et demandons lui de s'interrompre dans le 
cas contraire. Avez-vous devine par quel biais ? Ecrivons : 

55 IF N0M$(x)- ,,n THEN 80 

80 PRINT n entree des donnees terminee" 

Le programme doit lui-meme indiquer a l'utilisateur comment l'interrompre. Ajoutons 
done : 

47 PRINT'pour arreter appuyer CENTER]" 

Voyons maintenant comment obtenir l'impression des informations enregistrees, d'abord 
sous forme de liste. Ecrivons : 

90 FOR x = l TO 100 

100 PRINT N0M*(x) ; " u ; TELS (x ) 

110 NEXT 

Mais la encore le programme ne sait pas comment s'arreter avant le centieme element du 
tableau. Ajoutons done : 

95 IF NOM* <k > = '* lk THEN 120 
120 PRINT"liste terminee" 

La chaine vide est detectee en ligne 95 et le programme interrompt l'impression en 
sautant les lignes 1 00 et 1 1 0. 

Passons maintenant a notre objectif suivant : nous voulons que le programme soit capa- 
ble de rechercher un nom entre au clavier. Ecrivons : 

130 INPUT "nom a trouver :"; RECHERCHE* 

140 FOR x = l TO 100 

150 IF INSTR(NOM*<x),RECHERCHE$)=0 THEN 180 

160 PRINT NQM$<x) ; '* ";TEL$(x) 

170 END 

180 NEXT 

190 PRINT M Ce nam n'est pas repertorie" 

run 



line nouvelle instruction est apparue en ligne 1 50 : INSTR. Cette instruction demande 
a l'ordinateur de chercher a l'interieur de la premiere chaine citee, la premiere occurrence 
de la seconde chaine. Autrement dit, il va chercher dans NOM$ une occurrence de 
RECHERCHE$ (la variable introduite en ligne 130, contenant le nom que vous 
recherchez). Si INSTR ne trouve pas au moins une partie de cette chaine, elle fournira la 
valeur 0, ce qui dans notre programme provoque un saut en ligne 1 80 et done une nou- 
velle tentative avec la valeur suivante de x (NEXT). Si le programme a balaye toutes les 
valeurs autorisees de x (1 a 100), il peut alors atteindre la ligne 1 90 et annoncer qu'il n'a 
pas trouve le nom demande. S'il le trouve, INSTR fournit une valeur differente de 0. Le 
programme passe alors sur la ligne 1 60, affichant le nom et le numero de telephone, 
avant de s'achever a la ligne 170 (END), 

Notre programme se perfectionne tres rapidement, mais il nous reste encore beaucoup a 
faire. Prenons done un peu de recul et considerons ses limites. La facon dont il se deroule, 
par exemple : on enregistre les informations, puis on obtient une liste, et Ton peut enfln 
demander la recherche d'un nom donne. 

Et si jamais ? 

Et si jamais cet ordre ne vous convenait pas ? Si vous preferiez commencer par la 
recherche d'un nom enregistre la veille, ou bien ajouter des noms et des numeros de 
telephone a ceux qui existent deja ? Etudier et resoudre ce type de probleme, e'est cela la 
programmation. BASIC, vous le savez, a la bonte de vous permettre l'insertion de nouvel- 
les instructions dans un programme existant, mais un bon programmeur ne doit pas se 
laisser surprendre. 

Un autre inconvenient, de taille, tient au fait que le programme stocke le contenu des 
tableaux dans une partie de la memoire effacee a chaque nouvelle execution. Comme il 
est hors de question que vous entriez a chaque fois toutes vos informations a la main, il 
faudra vous reserver la possibility, d'une part, de sauvegarder les valeurs des variables 
NOM$ et TEL$ avant d'eteindre votre ordinateur et, d'autre part, de charger ces valeurs 
lors de 1'execution du programme. 



Reponses 

Voici comment nous allons resoudre le probleme du deroulement des taches : nous allons 
faire en sorte qu'en debut d'execution, le programme nous propose un choix entre les 
differentes operations qu'il est capable d'effectuer. Ce programme, de type « pilote par 
menu », affiche effectivement a l'ecran un menu des options proposees. Vous etes-vous 
deja servi d'un distributeur automatique de billets ? Si oui, vous avez deja eu affaire a un 
programme pilote par menu. Incorporons ce menu a notre programme : 



32 PRINT'L ajouter un correspondant " 

33 PRINT"2. lister les correspondents" 

34 PRINT3. consulter le repertoire" 

35 PR I NT " 4 . sauvegarder le repertoire" 

36 PRINT'S, charger le repertoire" 

37 INPUT "votre choix (puis ENTER)";ch- 

38 ON ch GOSUB 40,90, 130 



85 RETURN 
125 RETURN 
170 RETURN 
200 RETURN 

Comme vous pouvez le constater, le programme affiche maintenant le menu des options, 
puis introduit dans la variable ch le numero entre au clavier (INPUT). En passant sur 
Tinstruction ON ch GOSUB (ligne 38), il lancera le premier sous-programme (ligne 38) 
si ch= 1, le deuxieme (ligne 90) si ch = 2 et ainsi de suite. 

Maintenant que chacune des fonctions est devenue un sous-programme, il faut obliga- 
toirement en indiquer la fin par une instruction RETURN, ce que nous avons fait. 

Vous souvenez-vous du mode d'execution de RETURN ? A la fin du sous-programme, 
cette instruction BASIC renvoie le programme a la ligne suivant immediatement Tinstruc- 
tion GOSUB correspondante, c'est-a-dire, dans notre cas, a la ligne situee apres 38 
(notre programme se poursuivrait done a partir du point d'entree des informations, ligne 
40). Pour eviter cela, introduisons la ligne : 

39 GOTO 32 

...afin de faire boucler le programme sur raffichage du menu. Faites encore tourner le 
programme pour constater les ameliorations apportees. 

Parfait ! Voyons maintenant comment notre programme se presente (si celui-ci n'est pas 
arrete, faites [ESC] deux fois. Tapez : 

LIST 

Et voici ce que vous devriez avoir sous les yeux : 

10 REM repertoire telephonique 

20 DIM NOM$(100) 

30 DIM TEL*(100) 

32 PRINT" 1 . ajouter un correspondant" 

33 PRINT'2. lister les carrespondants" 

34 PRINT3. consulter le repertoire" 

35 PRINT4. sauvegarder le repertoire" 



36 PR I NT '* 5 . charger ie repertoire" 

37 INPUF'votre choix (puis ENTER)";ch 

38 ON ch GQSUB 40,90,138 

39 GOTO 32 

40 FOR x=l TO 100 
45 CLS 

47 PRlNT*'pour arreter appuyer LENTERr 

50 INPUT M nom H $N0M*<x> 

55 IF N0M*(x)= ,,M THEN 80 

60 INPUT n telephone n ;TEL$(x) 

70 NEXT 

80 PRINT"entree des donnees terminee." 

85 RETURN 

90 FOR x = l TO 100 

95 IF NOM$(x)= M,i THEN 120 

100 PRINT NQM*(x) ; " n ;TEL$(x) 

110 NEXT 

120 PRINT"fin de liste" 

125 RETURN 

130 INPUT "nodi a trouver " ; RECHERCHE* 

140 FOR x=l TO 100 

150 IF INSTR(NOM*(x) , RECHERCHE*) =0 THEN 180 

160 PRINT NOM*(x);" "jTEL*(x> 

170 RETURN 

180 NEXT 

190 PRINT"ce nom rrest pas repertone." 

200 RETURN 

Vous remarquez qu'a certains endroits nous commengons a manquer de place pour insu- 
rer de nouvelles lignes. Nous allons en creer et remettre un peu d'ordre en RENUM- 
erotant les lignes. Faites : 

RENUM 
LIST 

Vous devez maintenant obtenir : 

10 REM repertoire telephonique 

20 Dili NOM*<100) 

30 DIM TEL*(100) 

40 PRINT" 1 . ajouter un correspondant " 

50 PRINT"2. lister les correspondants" 

60 PRINT'S, consulter le repertoire 11 

70 PRINT4. sauvegarder ie repertoire" 

80 PRINTS, charger Ie repertoire" 

90 INPUTvotre choix (puis ENTER)"jch 



1019 ON en GOSUB 120,210,27121 

110 GOTO 40 

120 FOR x = l TO 100 

130 CLS 

140 PRINT"pour arreter appuyer CENTER]" 

150 INPUT "nom";NOM$(x) 

160 IF NOMt(x)*"" THEN 190 

170 INPUT "telephone"jTEL$(x) 

180 NEXT 

190 PRINT"«ntree des donnees terminee." 

200 RETURN 

210 FOR x = l TO 100 

220 IF NQM$(x)="" THEN 250 

230 PRINT NQM$(x);" ";TEL$<x) 

240 NEXT 

250 PRINT"fin de liete" 

260 RETURN 

270 INPUT "nam a trouvar "jRECHERCHEf 

280 FOR x = l TO 100 

290 IF INSTR(NOM$(x),RECHERCHE*)=0 THEN 320 

300 PRINT N0M*(x);" ";TEL$(x> 

310 RETURN 

320 NEXT 

330 PRINT"ce no«i n'est pas repertorie." 

340 RETURN 

Voila qui est mieux. Continuons ! II nous faut maintenant une instruction qui fera en 
sorte que chaque nouvelle information enregistree soit rangee a l'interieur de la premiere 
case vide disponible dans le tableau. Nous allons pour cela nous servir d'une nouvelle 
intruction : LEIM. Celle-ci permet de calculer la longueur d'une chaine. Void ce qu'il faut 
indiquer a l'ordinateur : 

Si (IF) la longueur (LENgth) de NOM$(x) est superieure a 0, autrement dit si cette case 
est deja occupee, il faut alors (THEN) passer directement a la ligne 1 80 (qui donnera la 
reference de la case suivante). 

Nul besoin, on le voit, d'etre doue en anglais pour parler BASIC. Toutefois, e'est avant 
tout une question de bon sens ! 

135 IF LEN(NOM»(x))>0 THEN 180 

Enfantin, n'est-ce pas ? Avec votre liste des mots-cles de BASIC, et un peu de reflexion, 
aucune difficulte ne pourra vous arreter. Vous trouverez toujours une instruction repon- 
dant exactement a vos besoins et, avec l'habitude, les solutions vous viendront a Fesprit 
comme par miracle. 



Voyons maintenant comment sauvegarder les valeurs des variables afin de pouvoir les 
recharger lorsqu'on execute le programme. Vous savez, depuis la partie 7 du Cours Ele- 
mentaire, que l'on peut sauvegarder le programme lui-meme au moyen de l'instruction 
SAVE. Cependant, ce programme n'est qu'un cadre permettant l'entree des valeurs (au 
clavier) et leur sortie (sur l'ecran). En sauvegardant le programme (SAVE), vous conser- 
vez ce cadre, mais pas les valeurs elles-memes. 

Une partie du programme devra done prevoir le stockage des valeurs sur disquette. Nous 
allons pour cela creer un « fichier de donnees » independent. 

II faudra d'abord ouvrir (OPEN) un fichier sortie (OUTput) que nous appellerons par 
exemple, « donnees », puis ecrire (WRITE) a l'interieur de ce fichier les valeurs (de 1 a 
100) des variables NOM$(x) et TEL$(x) et, pour finir, refermer (CLOSE) ce fichier 
avant de revenir au menu. Cette section sera placee a partir de la ligne 350. Laissons a 
1 instruction : 

AUTO 350 

...le soin de numeroter AUTOmatiquement les lignes : 

350 0PEN0UT "donnees" 

360 FOR x=l TO 100 

370 WRITE #9,N0M$<x),TEL*(x) 

3B0 NEXT 

390 CL0SE0UT 

400 PRINT"donnees sauvees" 

410 RETURN 

Une fois la ligne 410 entree par [ENTER], faites [ESC] pour interrompre la numerota- 
tion AUTOmatique. 

Nous venons d'introduire une option supplemental : il nous faut done ajouter un 
numero dans la liste situee apres l'instruction ON ch GOSUB, ligne 100. Rappelons 
la ligne 100 pour operer cette modification, par EDIT : 

100 ON ch 60SUB 120,210,270,350 

Vous pourrez desormais, en choisissant l'option 4, demander au programme de stocker 
sur disquette les informations introduites. 

y™s/e m arquerez qu'au moment ou 'e programme ecrit sur la disquette les valeurs de 
NOM$(x) et de TEL$(x), le mot cle WRITE est suivi de l'expression # 9. Le symbole 
# est un « selecteur de canal » qui indique a l'ordinateur sur quel canal les donnees doi- 
vent etre achemmees. II en existe 10 dans un ordinateur : 

Si l'on dirige les donnees sur les canaux a 7 (de #0 a #7), celles-ci apparaissent sur 
1 ecran (les canaux a 7 sont reserves pour l'ecran et y definissent des « fenetres »). 



Les donnees envoyees sur le canal # 8 sortiront sur Timprimante, le cas echant. 

Enfin, les donnees dirigees sur le canal # 9 seront envoyees a l'unite de disques : c'est ce 
que nous avons fait ligne 370. 



Une petite digression... 

Juste un mot sur l'instruction AUTO que nous venons d'utiliser. Lorsque Ton entre,.sans 
numero de ligne, l'instruction : 

AUTO 

...l'ordinateur se met a numeroter automatiquement les lignes, en commengant a 10, et 
en progressant de 10 en 10 a chaque nouvelle ligne entree. Si les lignes 10, 20, 30, etc. 
existent deja dans votre programme, vous les ferez apparaitre sur Tecran une a une en 
actionnant la touche [ENTER]. Cette procedure peut vous faire gagner du temps lorsque 
vous desirez corriger toute une sequence de lignes espacees de 10 en 10. 

Revenons a notre programme... 

Apres avoir ecrit les instructions permettant le stockage de nos donnees sur disquette, il 
ne nous reste plus qu'a en prevoir le chargement, pour que notre programme soit termine. 
Ajoutons done une nouvelle option au menu en corrigeant encore une fois la ligne 1 00 : 

100 ON ch GQSUB 120,210,270,350,420 

Voyons maintenant les instructions de chargement. II faudra d'abord ouvrir (OPEN) le 
fichier entree (INput) sur la disquette de « donndes », puis chercher a partir de cette 
disquette (canal § 9) toutes les valeurs, de 1 a 100, des variables NOM$(x) et TEL$(x), 
et enfin refermer le fichier avant de revenir au menu. Voici la procedure : 

420 0PENIN "donnees" 

430 FOR x=l TO 100 

440 INPUT #9,N0M$(x),TEL$(x) 

450 NEXT 

460 CL0SEIN 

470 PRINT"donnees chargees" 

480 RETURN 



La fin du commencement... 

Le programme que nous venons d'ecrire remplit maintenant tous les objectifs que nous 
nous etions fixes au depart lorsque que nous nous demandions « ce qu'il devrait faire ». 
II ne nous reste done plus qu'a ameliorer la « presentation des resultats » a l'ecran. 



Et le commencement de la fin... 

D'abord quelques instructions pour mettre le programme au propre : 

34 MODE 1 

Ceci determine le mode d'affichage : l'ecran sera efface a chaque nouvelle execution du 
programme. Ecrivez ensuite : 

36 WINDOW #1,7,36,10,14 

Cette instruction un peu obscure ne doit pas vous effrayer : elle consiste simplement a 
dessiner sur l'ecran une petite fenetre pour encadrer le menu. Le code situe apres le mot 
WINDOW indique a l'ordinateur sur quel canal cette fenetre sera dirigee (souvenez-vous 
que nous en avons 8 a notre disposition, de #0 a #7). Sachant de plus que l'ordinateur, 
s'il n'a pas regu d'indication particuliere, choisit automatiquement le canal #0, on voit 
bien qu'il faut eviter de diriger notre petite fenetre sur ce canal, sous peine de voir s'y 
afficher toutes les sorties du programme. II faudra done choisir un autre canal entre #1 
et #7, d'oii l'indication #1 sur notre exemple. Les quatre nombres qui viennent ensuite 
indiquent, de maniere on ne peut plus simple, les dimensions de la fenetre : ils donnent la 
position des bords gauche, droit, superieur et inferieur de la fenetre, en se referant aux 
numeros de colonnes et de lignes de l'ecran (comme pour l'instruction LOCATE). Ainsi 
dans notre exemple, apres avoir precise que nous utilisions le canal 1, nous declarons que 
le bord de gauche commence en colonne 7, que celui de droite finit en colonne 36, que le 
bord superieur commence en ligne 1 et que le bord inferieur finit en ligne 14. 

Si nous voulons maintenant que le menu s'affiche dans cette fenetre, il va nous falloir 
rectifier les lignes 40 a 80 : 

ajouter un correspondant " 
lister les correspondants" 
consulter le repertoire" 
sauvegarder le repertoire" 
charger le repertoire" 

Ajoutons encore la ligne : 

85 LOCATE 7,25 



40 


PRINT 


# 1 , " 1 . 


5(9 


PRINT 


•l,"2. 


60 


PRINT 


•l,"3. 


70 


PRINT 


#1,"4. 


80 


PRINT 


#1,"5. 



Cette instruction sert a positionner sur l'ecran la demande de l'option choisie. La presen- 
tation sera ainsi plus claire. 

Vidons maintenant l'ecran de son contenu avant chaque retour au menu : 

1 10 GOTO 34 
...et apres chaque selection d'option : 

95 CLS 

Ajoutons pour finir les trois lignes suivantes, qui mettront l'ordinateur en attente avant 
de revenir au menu : 

103 LOCATE 7,25 

105 PRINT"appuyez une touche pour le menu" 

107 IF INKEY*-"' THEN 107 

La ligne 1 03 indique 1'endroit auquel l'ordinateur devra afficher le message contenu en 
ligne 1 05. La ligne 1 07 cherche quelle chaine de caractere vient d'etre entree au clavier. 
Tant que celle-ci sera vide, c'est-a-dire tant que Tutilisateur n'aura pas actionne une 
touche quelconque du clavier, le programme bouclera sur cette instruction. Cette instruc- 
tion a bien pour effet de mettre le programme en attente : celui-ci attend effectivement 
qu'une touche soit enfoncee pour passer a la ligne suivante. 

Le voila done termine, ce programme ! Termine, vraiment ? ...vous pourriez encore lui 
demander de corriger ou d'effacer des noms et des numeros de telephone, de trier la liste 
dans l'ordre alphabetique, ou de vous la « sortir » sur imprimante, ou bien encore, si vous 
etes tres ambitieux, d'emettre des signaux permettant d'appeler automatiquement votre 
correspondant en entrant simplement son nom au clavier, non sans avoir, bien entendu, 
demande aux PTT Tautorisation de connecter votre ordinateur au poste telephonique ! 
Ces perfectionnements sont pourtant de l'ordre du possible. A vrai dire, on peut ame- 
liorer et peaufiner ainsi ses programme a Tinfini, surtout lorsqu'on dispose d'un outil 
informatique aussi puissant que le CPC664. II faut pourtant savoir s'arreter et nous allons 
laisser ce « repertoire telephonique » a ce point en esperant que vous en savez desormais 
un peu plus sur Tart d'ecrire un programme en partant de zero. II ne vous reste qu'a le 
remettre un peu en ordre en tapant une derniere instruction : 

RENUM 

...puis a le stocker sur disquette, ou vous en debarrasser. Mais qui sait, il pourrait peut- 
etre vous etre utile... pour noter les numeros de telephone de vos amis ! 



Void votre programme termine : 

10 REM repertoire telephonique 

20 DIM NQM$<100) 

30 DIM TEL$(100) 

40 MODE 1 

50 WINDOW #1,7,36, 10, 14 

60 PRINT #1,"1. ajouter un correspandant " 

70 PRINT #1,"2. lister les correspondants" 

80 PRINT #1,"3. consulter le repertoire" 

90 PRINT #1,"4. sauvegarder le repertoire" 

100 PRINT #1,"5. charger le repertoire" 

110 LOCATE 7,25 

120 INPUT"votre choix (puis ENTER)";ch 

130 CLS 

140 ON ch GOSUB 190,290,350,430,500 

150 LOCATE 5,25 

160 PRINT"appuyer une touche pour le menu" 

170 IF INKEY$="" THEN 170 

180 GOTO 40 

190 FOR x = l TO 100 

200 CLS 

210 IF LEN(NOM$(x)>>0 THEN 260 

220 PRINT"pour arreter appuyer CENTER]" 

230 INPUT "noi»";NQIH(x> 

240 IF N0M$(x)="" THEN 270 

250 INPUT "telephone"5TEL*<x> 

260 NEXT 

270 PRlNT"entree des donnees terminee." 

280 RETURN 

290 FOR x = l TO 100 

300 IF N0M$(x)="" THEN 330 

310 PRINT N0M$(x);" "jTELKx) 

320 NEXT 

330 PRINTMin de liste" 

340 RETURN 

350 INPUT "nom a trouver " ;RECHERCHE$ 

360 FOR x=l TO 100 

370 IF INSTR(NOM$(x),RECHERCHE*)=0 THEN 401 

380 PRINT NONt(x);" ";TEL$(x) 

390 RETURN 

400 NEXT 

410 PRINT"ce nom n'est pas repertorie." 

420 RETURN 

430 OPENOUT "donnees" 



FOR x=l TO 100 
450 WRITE #9,N0M$(x),TEL$(x) 
460 NEXT 
470 CL03E0UT 

480 PRINT"donnees sauvees" 
490 RETURN 

500 OPENIN "donnees" 
510 FOR x = l TO 100 
520 INPUT #9,NQM*(x),TEL*(x> 
530 NEXT 
540 CLOSEIN 

550 PRINT"donnees chargees" 
560 RETURN 
run 



Chapitre 3 

Liste complete des mots cles 

du BASIC AMSTRAD CPC664 

IMPORTANT 

L'assimilation de la terminologie et de la notation adoptees dans ce chapi- 
tre est indispensable. Differents types de parentheses expliquent l'entree 
des commandes ; commencez done par vous familiariser avec la significa- 
tion de chacun. 

Les commandes sans crochets doivent rester telles quelles. C'est le cas, par exemple, de 
la commande : 

END 
...et vous devez taper le mot END en toutes lettres. 
Lorsqu'un element apparait entre parentheses angulaires, < > comme : 

<numero de ligne> 

...il ne faut ni taper ces parentheses, ni ce qu'elles renferment. L'exemple ci-dessus indique 
le type de donnees requises pour la commande. Par exemple : 

EDIT <numero de ligne> 

...signifie que vous devez taper : 

EDIT 100 

Les parentheses () DOIYENT etre tapees telles quelles. Dans l'exemple : 

COS (< expression numeriquo) 
...Fexpression numerique doit se trouver entre parentheses. Par exemple : 

PRINT C0S(45) 



Les crochets, pour finir, contiennent les elements facultatifs (Tune commande ou d'une 
fonction. Par exemple : 

RUN [<numero de ligne>] 

...signifie que vous n'etes pas oblige de faire suivre le mot cle RUN d'un parametre, mais 
que vous pouvez, si vous le desirez, ajouter le parametre <numero de ligne>. La com- 
mande peut alors etre entree de deux manieres : 

RUN . . .ou. . . RUN 100 



Caracteres speciaux 

& ou &H Prefixe pour un nombre hexadecimal 

&X Prefixe pour un nombre binaire 

# Prefixe pour un canal d'entrees-sorties 



Types de donnees 

Les chaines peuvent avoir de a 255 caracteres et sont designees par <chaine alphanume- 
rique> . On peut adjoindre une chaine a une autre avec le signe + et a condition que la 
chaine qui en resulte ne depasse pas 255 caracteres. 

Les entiers varient de -32768 a + 32767 et les nombres reels de - 1 .7E + 38 a + 1 .7E + 38, le 
plus petit nombre au dessus de zero etant 2.9E-39 et chaque nombre ayant 9 a 10 chiffres 
significatifs. 

Une < expression numeriquo est une expression qui aboutit a une valeur numerique. 
Cela peut etre des nombres, ou une variable numerique, ou des nombres operant avec des 
variables numeriques, a peu pres tout ce qui n'est pas < chaine alphanumeriquo. 

Un <numero de canal > se rapporte a une < expression numeriquo pour designer une 
fenetre d'ecran, une imprimante, une cassette ou une disquette vers laquelle le texte doit 
etre achemine. 

Une < liste de:element> decrit un parametre comprenant une liste d'elements separes par 
des virgules. Cette liste, pouvant contenir un ou plusieurs elements, est Hmitee par la lon- 
gueur de ligne. 

Les differents indicateurs de type de donnees : 

% Entiers 

I Reels (par defaut) 

$ Chaine alphabetique et numerique (alphanumerique) 



Nous allons donner les mots cles du BASIC AMSTRAD sous la forme suivante ; 

MOT CLE 

Syntaxe 
Exemple 
Description 
Mots cles associes 

Les mots cles sont : 

DES COMMANDES : operations executees directement 

DES FONCTIONS : operations intervenant dans une expression 

DES OPERATEURS : agissent sur des arguments mathematiques. 

Lors du listage d'un programme, le BASIC transforme en MAJUSCULES tous les mots 
cles tapes en minuscules. Les exemples de ce chapitre sont en MAJUSCULES tels qu'ils 
apparaissent apres un LISTing. II sera toutefois preferable que vous les tapiez en minus- 
cules car les mots cles con tenant une erreur resteront LISTes en minuscules, vous revelant 
ainsi vos erreurs de frappe. 

Pour plus de details sur le BASIC AMSTRAD 664, consultez les specifications SOFT945. 

Mots cles... 
ABS 

ABS (< expression numeriquo) 

PRINT ABS<-67.98) 
67.98 

FONCTION : Donne la valeur ABSolue de l'expression entre parentheses. Les nombres 
negatifs perdent done leur signe moins. 

Mots cles associes : SGN 



AFTER 

AFTER <delai du chronometre>[,<numero de chronometro] GOSUB <numero de 
ligne> 

10 AFTER 250 GOSUB 60:CLS 

20 PRINT H Devine une lettre en 5 secondes" 

30 a$*INKEY$: IF fiag=l THEN END 

40 IF a$OCHR$UNT(RND*26 + 97) ) THEN 30 

50 PRINT a$;" est exacte.tu as gagne ! " 

55 SOUND 1,478:S0UND 1,358:END 

60 PRINT"Trop tard.J'ai gagne !" 

70 SOUND l,2000:flag=l:RETURN 

run 

COMMANDE : Appelle un sous-programme apres (= AFTER en anglais) un certain 
delai. Le < delai du chronometro indique la duree de 1'attente en multiples de 0,02 
seconde. Le <numero de chronometre> (qui peut etre 0, 1, 2 ou 3) precise lequel des 
quatre chronometres d'attente il faut utiliser. 

Chacun des 4 chronometres peut etre associe a un sous-programme. Pour plus de details 
concernant les interruptions, reportez-vous a la partie 2 du chapitre « A vos heures de 
loisir... ». 

Mots cles associes : EVERY, REMAIN, RETURN 
AND 

< argument > AND < argument > 

IF "alain" < "bernard" AND "chien" > "chat" THEN PRINT 

"vrai" ELSE PRINT "^aux" 
vrai 

IF "bernard" < "alain" AND "chat" > "chien" THEN PRINT 

"vrai" ELSE PRINT "faux" 
faux 

IF "alain" < "bernard" AND "chat" > "chien" THEN PRINT 

"vrai" ELSE PRINT "faux" 
faux 

PRINT 1 AND 1 

t 

PRINT AND 



PRINT 1 AND 



OPERATEUR : Execute des operations booleennes par bits sur des nombres entiers. Est 
egal a sauf lorsque les deux bits d'arguments sont egaux a 1. 

Pour toute information complementaire sur la logique, consultez la partie 2 du chapitre 
« A vos heures de loisir... ». 

Mots cles associes : OR, NOT, XOR. 



ASC 

ASC (<chaine alphanumerique > ) 

PRINT ASC TV) 
120 

FONCTION : Donne la valeur numerique du premier caractere d'une chaine de carac- 
teres. 

Mots cles associes : CHR$ 



ATN 

ATN (< expression numerique >) 

PRINT ATN(l) 
0.785398163 

FONCTION : Calcule TArc TaNgente (reduisant f< expression numerique > a un nom- 
bre reel en radians compris entre -PI/2 et + PI/2) de la valeur donnee. 

A noter : les commandes DEG et RAD peuvent etre utilisees pour specifier explicitement 
que le resultat sera exprime respectivement en degres ou radians. 

Mots cles associes : COS, DEG, RAD, SIN, TAN 

AUTO 

AUTO [<numero de ligne>][,< increment >] 
AUTO 100,50 

COMM ANDE : Genere AUTOmatiquement les numeros de ligne. Le parametre faculta- 
tif <numero de ligne > donne le premier numero de ligne a generer. Si vous ne le precisez 
pas, les lignes sont generees a partir de 1 0. 

L'< increment >, egalement facultatif, fixe Tintervalle entre les numeros de ligne. En 
Tabsence de specification, il sera egal a 1 0. Si un numero de ligne deja utilise est genere, 
le contenu de cette ligne apparait a l'ecran et peut eventuellement etre modifie. La ligne 
affichee est ensuite remplacee en memoire apres activation de la touche [ENTER]. Pour 
arreter la numero tation automatique des lignes, appuyez sur [ESC]. 

Mots cles associes : Aucun 



BINS 

BIN$ (<nombre en tier sans signe>[,< nombre entier>] ) 

PRINT BIN*<64,8) 
01000000 

FONCTION : Produit une chaine de chiffres BIN aires representant la valeur du <nom- 
bre entier sans signo, a l'aide du nombre de chiffres binaires indique par le deuxieme 
<nombre entier > (entre et 16). Si ce nombre est trop grand, le resultat commence par 
autant de zeros que necessaire. S'il est trop petit, le resultat n'est pas tronque mais 
converti en autant de chiffres que necessaire. 

Le < nombre entier sans signo a convertir en binaire doit etre compris entre -32768 et 
65535. 

Mots cles associes : DEC$, HEX$, STR$ 

BORDER 

BORDER <numero de couleur>[,<numero de couleur>] 

10 REM 729 cambinaisons de bordure 

20 SPEED INK 5,5 

30 FOR a=0 TO 26 

40 FOR b=0 TO 26 

50 BORDER a,bsCLS:LOCATE 14,13 

60 PRINT"border ,, sa5V'ib 

70 FOR t=l TO 500 

80 NEXT t,b,a 

run 

COMMANDE : Pour changer la couleur de la bordure d'ecran. Si deux couleurs sont 
indiquees, elles alternent a la vitesse determinee par la commande SPEED INK, le cas 
echeant. Les valeurs vont de a 26. 

Mots cles associes : SPEED INK 

BREAK 

(Voir ON BREAK CONT, ON BREAK GOSUB, ON BREAK STOP) 



CALL 

CALL <adresse>[,<liste de:<parametre>] 
CALL 

COMMANDE : Permet a un sous-programme externe d'etre appele a partir du BASIC. 
L'exemple ci-dessus reinitialise completement Tordinateur. 

A utiliser avec precaution. 

Mots cles associes : UNT 

CAT 

CAT 

CAT 

COMMANDE : Demande au BASIC de lire le CATalogue de la disquette. Affiche en 
ordre alphahumerique les noms de tous le fichiers presents ainsi que leur longueur (en 
arrondissant au Koctet superieur). Le nombre d'octets disponibles s'affiche egalement 
avec I'indentification de la disquette et de l'utilisateur. 

Cette commande n'a pas d'effet sur le programme en cours. 

Mots cles associes : LOAD, RUN, SAVE 

CHAIN 

CHAIN <nomfich>[,<numero de ligne>] 
CHAIN M testprog.bas\350 

COMMANDE : Charge un programme en memoire a partir d'une disquette, remplagant 
le programme existant. Le nouveau programme commence au debut ou a partir de la 
ligne specifiee par <numero de ligne>. 

Les fichiers proteges (sauvegardes par la commande SAVE,p) peuvent etre charges et 
lances par CHAIN. 

Mots cles associes : CHAIN MERGE, LOAD, MERGE 



CHAIN MERGE 

CHAIN MERGE <nomfich>[,<numero de ligne>] 
[,DELETE <ensemble de lignes>] 

CHAIN MERGE M partie2. bas% 750, DELETE 400-680 



COMMANDE : Charge en memoire un programme sur disquette en le fusionnant au 
programme existant, puis lance le programme resultant, depuis le debut ou a partir de la 
ligne specifiee par le parametre en option, <numero de ligne>. Si vous desirez effacer 
une partie du programme initial avant d'utiliser cette commande, vous pouvez specifier le 
parametre <ensemble de lignes> de la commande DELETE. Les numeros de ligne du 
programme initial identiques a ceux du programme a fusionner seront ecrasees sur les 
nouvelles lignes. Les fichiers proteges (sauvegardes par la commande SAVE,p) ne peu- 
vent PAS etre fusionnes puis lances par cette commande. 

Mots cles associes : LOAD, MERGE, DELETE, CHAIN 

CHR$ 

CHR$ (<nombre entier>) 

10 FOR x=32 TO 255 
20 PRINT x;CHR$(x>, 
30 NEXT 
run 



FONCTION : Convertit un <nombre entier> compris entre et 255 en une chaine de 
caracteres equivalente a Taide du jeu de caracteres de TAMSTRAD CPC664, decrit dans 
la partie 3 du chapitre « Pour information... ». Les caracteres a 31 sont des caracteres 
de controle. C'est pourquoi l'exemple ci-dessus affiche les entiers compris entre 32 et 255. 

Mots cles associes : ASC 
CINT 

CINT (< expression numerique>) 

10 n=1.9999 

20 PRINT CINT(n) 

run 

2 

FONCTION : Convertit une valeur numerique en un entier arrondi compris entre -32768 
et 32767. 

Mots cles associes : CREAL, FIX, INT, ROUND, UNT 



CLEAR 

CLEAR 

CLEAR 

COMM ANDE : Efface toutes les variables, fichiers ouverts, tableaux et fonctions utilisa- 
teur, le mode de calcul en BASIC s'effectue en radians. 

Mots cles associes : Aucun 

CLEAR INPUT 

CLEAR INPUT 

10 CLS 

20 PRINT" tapez plusieurs lettres maintenant " , 

30 FOR t»i TO 3000 

40 NEXT 

50 CLEAR INPUT 

run 

COMMANDE : Efface toutes les donnees entrees a partir du clavier, se trouvant dans le 
tampon. 

Pour experimenter cette commande, lancez le programme ci-dessus et tapez les lettres 
lorsque vous y etes invite, Supprimez ensuite la ligne 50 du programme, relancez-le et 
voyez la difference. 

Mots cles associes : IN KEY, INKEY$, JOY 



CLG 

CLG [<encre>] 

LOCATE 1,20 
CLG 3 

COMMANDE : Efface Tecran graphique et le ramene a sa couleur de fond. Si <encre> 
est specifiee, le fond est de la couleur fixee en accord. 

Mots cles associes : CLS, GRAPHICS PAPER, INK, ORIGIN 



CLOSEIN 

CLOSEIN 

CLOSEIN 

COMMANDE : Ferme tout fichier d'entree ouvert sur la disquette (voir OPENIN). 
Mots cles associes : EOF, OPENIN 

CLOSEOUT 

CLOSEOUT 

CLOSEOUT 

COMMANDE : Ferme tout fichier ouvert en sortie sur la disquette. (voir OPENOUT). 
Mots cles assopies : OPENOUT 

CLS 

CLS [ # <numero de canal >] 

10 PAPER #2,3 
20 CLS «2 
run 

COMMANDE: Efface la fenetre d'ecran specifiee par le <numero de canal > et lui 
donne sa couleur de papier. En l'absence de <numero de canal >,~0 est pris par defaut. 

Mots cles associes : CLG, INK, PAPER, WINDOW 

CONT 

CO NT 

CONT 

COMMANDE : CONTinue Pexecution du programme apres un STOP, ou deux activa- 
tions de la touche [ESC], si le programme n'a ete ni modifie ni protege. Des commandes 
directes peuvent etre tapees avant reprise du programme. 

Mots cles associes : STOP 



COPYCHRS 

COPYCHR$ ( # <numero de canal>) 

10 CLS 

20 PRINT"coin superieur" 

30 LOCATE 1,1 

40 a*=COPYCHR*<#0) 

50 LOCATE 1,20 

60 PRINT a$ 

run 

FONCTION : Copie un caractere a partir de la position du curseur dans le canal (qui 
DOIT etre specifie). Le programme ci-dessus copie un caractere de l'emplacement 1,1 
(angle superieur gauche) et le reproduit en 1,20. Si le caractere lu n'est pas reconnu, une 
chaine nulle est renvoyee. 

Mots cles associes : LOCATE 



COS 

COS (< expression numeriquo) 

DE6 

PRINT C0S(45) 
0.707106781 

FONCTION : Calcule le COSinus de F< expression numeriquo. 

DEG et RAD peuvent servir a exprimer l'argument en degres ou en radians, respective- 
men t. 

Mots cles associes : ATN, DEG, RAD, SIN 



CREAL 

CREAL (< expression numeriquo) 

10 a=PI 

20 PRINT CINT(a) 

30 PRINT CREAL(a) 

run 

3 

3.14159265 

FONCTION : Convertit l'< expression numeriquo en nombre reel. 
Mots cles associes : CI NT 



CURSOR 

CURSOR [<indicateur systeme >][,<indicateur utilisateur>] 

10 CURSOR 1 

20 PRINT H question ?"j 

30 a$=INKEY$:IF a$="" THEN 30 

40 PRINT a$ 

50 CURSOR 

run 

COMMANDE : Active ou desactive l'indicateur systeme ou utilisateur. Les parametres 
<indicateur systeme > et <indicateur utilisateur > doivent etre sur (inactif) ou 1 (actif). 
Dans la commande IIMKEY$ ci-dessus, le curseur a ete rendu visible par fixation de l'indi- 
cateur systeme sur 1 (a la ligne 1 0). 

Le curseur s'affiche lorsque les deux indicateurs sont sur 1. Le curseur systeme est auto- 
matiquement active pour la commande INPUT et desactive pour INKEY$. 

II est preferable de desactiver le curseur pour affichage d'un texte a l'ecran. 

Vous pouvez omettre Tun des indicateurs mais pas les deux. Si un parametre est omis, 
son etat est inchange. 

Mots cles associes : LOCATE 



DATA 

DATA <liste de:<constante> 

10 FOR x = l TO 4 

20 READ nom$,prenom$ 

30 PRINT"Mr. "jnam*;" H ;prGnoffl$ 

40 NEXT 

50 DATA DUPONT, Olivier, DURAND, Francois 

60 DATA LAMIE, Frederic, MOULIN, Daniel 

run 

COMMANDE : Declare des donnees constantes a 1'interieur d'un programme. Ces don- 
nees peuvent etre affectees a une variable par la commande READ, apres quoi le pointeur 
passe a l'element suivant de la liste DATA. La commande RESTORE peut servir a 
deplacer le pointeur sur une position specifiee de DATA. 

Pour de plus amples informations, consultez la partie 2 du chapitre « A vos heures de 
loisir... ». 

Mots cles associes : READ, RESTORE 



DECS 

DEC$ (< expression numerique >,< modele de format >) 

PRINT DEC$(10t7#########,.*# M > 
10,000,00(9.(319 

FONCTION : Donne une representation DECimale de l'expression numerique, utilisant 
le < modele de format > indique. 

Le modele de format ne peut contenir QUE les caracteres : 

+ -£$*#,.! 

L'emploi de ces « indicateurs de format » est decrit au mot cle PRINT USING. 

Mots cles associes : BIN$, HEX$, PRINT USING, STR$ 



DEFFN 

DEF FN <nom>[(<parametres formels>)] = < expression > 

10 t=TIME/300 

20 DEF FNchrono=INT<TIME/300-t> 

30 EVERY 100 GOSUB 50 

40 GOTO 40 

50 PRINT"Le programme tourne depuis"; 

60 PRINT FNchrono^'secondes" 

70 RETURN 

run 

COMMANDE : Le BASIC permet au programme de DEFinir une FoNction retournant 
une valeur unique et de Tutiliser. DEF FN est la partie definition du mecanisme de 
creation d'une fonction specifique, travaillant d'une maniere similaire aux fonctions exis- 
tantes du BASIC (COS, SIN, ATN, etc.). 

(Dans Texemple ci-dessus la valeur de la fonction FNchrono est constamment mise a 
jour, meme si le programme est suspendu par [ESC] ou arrete par double [ESC], puis 
relance. 

Mots cles associes : Aucun 



DEFINT 

DEFINT <liste de:<lettres concernees> 

10 DEFINT n 
20 nombre=123.456 
30 PRINT nombre 
run 
123 

COMMANDE : Definit le type de variable par DEFaut, le type etant entier. Lorsqu'une 
variable intervient sans marqueur (! % $), le type par defaut est automatiquement mis en 
oeuvre. Cette commande definit le type par defaut des variables selon la premiere lettre 
du nom de la variable. Elle peut etre suivie d'une liste d'initiales. Par exemple : 

DEFINT a,b,c 
...ou d'une fourchette d'initiales : 

DEFINT a-z 
Mots cles associes : DEFREAL, DEFSTR 

DEFREAL 

DEFREAL < liste de:<lettres concernees> 
DEFREAL x,a-f 

COMMANDE : Definit le type de variable par DEFaut, le type etant reel. Lorsqu'une 
variable intervient sans identificateur de type (! % $), le type par defaut est automati- 
quement mis en oeuvre. Le type de la variable sera determine suivant la premiere lettre du 
nom de la variable. Elle peut etre suivie d'une liste d'initiales : 

DEFREAL a,b,c 
...ou d'une fourchette d'initiales : 

DEFREAL a-z 
Mots cles associes : DEFINIT, DEFSTR 



DEFSTR 

DEFSTR <liste de:<lettres concernees> 

10 DEFSTR n 

20 noffl="Amstrad" 

30 PRINT nom 

run 

Amstrad 

COMMANDE : Definit le type de variable par DEFaut, le type etant une chaine. Lors- 
qu'une variable intervient sans identificateur (! % $) le type par defaut est automati- 
quement mis en oeuvre. Le type de la variable est determine selon la premiere lettre de son 
nom. La commande peut etre suivie d'une liste d'initiales : 

DEFSTR a,b,c 
...ou d'une fourchette d'initiales : 

DEFSTR a-z 
Mots cles associes : DEFINT, DEFREAL 

DEG 

DEG 

DEG 

COMMANDE : Etablit le mode de calcul en DEG res. Par defaut, les fonctions SIN, 
COS, TAN et ATN considerent que Targument qui leur est transmis est exprime en 
radians. La commande reste valable jusqu'a ce qu'on utilise les commandes RAD ou 
NEW, CLEAR, LOAD, RUN, etc. 

Mots cles associes : ATN, COS, RAD, SIN, TAN 



DELETE 

DELETE <ensemble de lignes> 
DELETE 100-200 

COMMANDE : Efface une partie du programme defini dans T< ensemble de lignes>, 

II n'est pas necessaire d'indiquer la ligne de depart ou la ligne d'arrivee pour effacer le 
programme « depuis le debut » ou « jusqu'a la fin ». 

DELETE -200 
...ou : 

DELETE 50- 
...ou : 

DELETE 
...qui efface la to tali te du programme. 
Mots cles associes : CHAIN MERGE, REIVIUM 

DERR 

DERR 

LOAD "xyz.abc 4 ' 

XYZ .ABC not ■found 
Ready 

PRINT DERR 
146 

FONCTION : Rapporte le dernier code d'ERReur envoye par le systeme de gestion de 
la Disquette. La valeur de DERR peut servir a conflrmer l'erreur detectee. Consultez la 
liste des messages d'erreur du chapitre « Pour information... ». 

Mots cles associes : ERL, ERR, ERROR, ON ERROR GOTO, RESUME 



DI 

Dl 

IB CLS:TAGsEVERY 10 GOSUB 98 

20 xl=RNDI320:x2=RNDI320 

30 y«200+RNDt200:c*=CHR*<RNDt255) 

40 FOR x=320-xl TO 320tx2 STEP 4 

50 DI 

60 MOVE 320,0, lsMOVE x-2,y:MOVE x,y 

70 PRINT" ";c*$»FRAME 

80 EI:NEXT:GOTO 20 

90 MOVE 320,0!DRAW x+8, y-16, 1 jRETURN 

run 

COMMANDE : Desactive une Interruption (autre que [ESC] ) jusqu'a ce qu'elle soit 
reactivee directement par une commande El ou indirectement par un [RETURN] a la 
fin d'un sous-programme d'interruption GOSUB. 

L'entree dans un sous-programme d'interruption desactive automatiquement les inter- 
ruptions de priorite egale ou inferieure. 

On l'utilise quand le programme doit s'executer sans interruption, par exemple quand 
deux sous-programmes sont en competition pour utiliser les ressources de l'ordinateur 
(les ressources graphiques dans le programme ci-dessus, par exemple). 

Pour de plus amples informations sur la logique consultez la partie 2 du chapitre « A vos 
heures de loisir... ». 

Mots cles associes : AFTER, El, EVERY, REMAIN 



DIM 

DIM < liste de:< variable indiceo 

10 CLS 

20 DIM ami*(5),tel*(5) 

30 FOR n*l TO 5 

40 PRINT"telephone No M ;n 

50 INPUT "entrez le noi" ; ami* (n) 

60 INPUT "entrez le numero de tel . " ; tel* (n) 

70 PRINT 

80 NEXT 

90 FOR n = l TO 5 

100 PRINT njafti4(n),tel*(n) 

110 NEXT 

run 



COMMANDE : DIMensionne un tableau. Cette commande alloue l'espace requis aux 
tableaux et specifie les valeurs d'indices maximales. Le BASIC doit connaitre l'espace 
reserve pour un tableau, en l'absence de specification il prend 10 comme valeur par 
defaut. 

Un tableau est identifie par une < variable indiceo, a savoir un nom de variable accom- 
pagne d'un ensemble d'indices afin que chaque « element » du tableau ait sa propre valeur 
d'indice. 

Une boucle FOR NEXT peut servir a controler le tableau en traitant chaque element du 
tableau a tour de role. 

La valeur minimale d'un indice est zero (c'est le premier element d'un tableau). 

Les tableaux peuvent etre multi-dimensionnels et chaque element est reference par sa 
position. Par exemple, dans un tableau dimensionne par : 

DIM position$(20,20,20) 

...un element du tableau sera reference de la fa^on suivante : 
position* (4,5, 6) 

Mots cles associes : ERASE 



DRAW 

DRAW <coordonnee x>,<coordonnee y> [,[< encre >][,< mode d'encro]] 

10 MODE 0:BORDER 0iPAPER 0: INK 8,0 
20 x=RND*640:y=RND*400:z=RND*15 
30 DRAW x>y,z 
40 GOTO 20 
run 

COMMANDE : Trace une ligne sur Pecran entre la position du curseur graphique et une 
position absolue specifiee par les coordonnees x et y. L'< encre > de tragage peut etre spe- 
cifiee (entre et 1 5). 

Le <mode d'encro facultatif determine Pinteraction de P encre sur raffichage present a 
Pecran. Les quatre < modes d'encro sont les suivants : 

0: Normal 

l:XOR(OUexclusif) 
2: AND (ET) 
3: OR (OU) 

Mots cles associes : DRAWR, GRAPHICS PEN, MASK 

DRAWR 

D RAW R < decalage x > , < decalage y > [,[ < encre > ][, < mode d'encre > ]] 

10 CLS:PRINT M tu montes au pre«iier !?" 

20 MOVE 0,350:FOR n=l TO 8 

30 DRAWR 50,0 

40 DRAWR 0,-50 

50 NEXTiMOVE 348,0:FILL 3 

60 GOTO 60 

run 

COMMANDE : Trace une ligne sur Tecran graphique a partir du curseur graphique jus- 
qu'a la position specifiee par les <decalages x et y>. L'< encre > du trace peut etre speci- 
fiee (entre et 15). 



Le <mode d'encre> facultatif determine l'interaction de l'encre sur Taffichage present a 
l'ecran. Les 4 < modes d'encro sont les suivants : 

0: Normal 

l:XOR(OUexclusif) 
2: AND (ET) 
3: OR (OU) 

Mots cles associes : DRAW, GRAPHICS PEN, MASK 



EDIT 

EDIT <numero de ligne> 

EDIT 20 
COMMANDE : Affiche la ligne du programme ainsi que le curseur, pret a Tedition. 
Mots cles associes : AUTO, LIST 

EI 

El 

EI 

COMMANDE : Active (Enables) une Interruption desactivee par Dl. 

Des interruptions desactivees par un sous-programme d'interruption sont automati- 
quement retablies par la commande RETURN, en fin de sous-programme. 

Pour de plus amples informations, consultez la partie 2 du chapitre « A vos heures de 
loisir... ». 

Mots cles associes : AFTER, Dl, EVERY, REMAIN 

ELSE 

(voir IF) 



END 

END 



END 



COMMANDE : Met fin a 1'execution d'un programme et retablit le mode direct. Un pro- 
gramme peut contenir un nombre quelconque de commandes END (elle est implicite a la 
fin de tout programme BASIC AMSTRAD). 

Mots cles associes : STOP 



ENT 

ENT < numero d'enveloppe > [, < section d'enveloppe > ] [, < section d'enveloppe > ] 

[, < section d'enveloppe > ] [, < section d'enveloppe > ] 

[,< section d'enveloppe >] 

IB ENT 1,10,-50,10,10,50,10 
20 SOUND 1,500,200, 10, ,1 
run 

COMMANDE: Definit PENveloppe de Tonalite specifiee par le < numero d'enve- 
loppo (entre 1 et 15) utilisee avec la commande SOUND. Si le <numero d'enveloppo 
est negatif (entre -1 et -15) l'enveloppe se repete jusqu'a la fin de la duree du son fixee par 
la commande SOUND. 

Chaque < section d'enveloppo peut contenir 2 ou 3 parametres : 

Dans le cas de trois parametres, ceux-ci sont : 

< nombre de pas> , < amplitude du pas> , < duree du pas>. 

Parametre 1 : < nombre de pas> 

Specifie le < nombre de pas> de variation de tonalite a Tinterieur de la section d'enve- 
loppe. Par exemple, dans une section de note durant 10 secondes, vous pouvez fixer 10 
pas de 1 seconde chacun. Dans ce cas, le < nombre de pas> sera 10. 

Le < nombre de pas> peut varier de a 239. 



Parametre 2 : < amplitude du pas> 

Doit etre compris entre -128 et + 127. Les pas negatifs augmentent la hauteur de la note, 
les pas positifs l'abaissent. La periode sonore minimale est de 0. Toutes les periodes sono- 
res disponibles sont presentees au chapitre « Pour information... ». 

Parametre 3 : < duree du pas> 

Specifie la duree d'un pas, par unites de 0,01 seconde. Elle peut varier de a 255 (0 a la 
valeur 256), la duree maximale d'un pas est done de 2,56 secondes. Si vous n'utilisez que 
deux parametres, ce sont : 

< periode sonore >,< duree du pas> 



Parametre 1 : < periode sonore > 

Donne la nouvelle valeur de la periode. (Voir le parametre 2 de la commande SOUND) 

Parametre 2 : < duree du pas> 

Specifie la duree du pas unique en unites de 0,01 seconde. Peut varier entre et 255 (0 
ayant la valeur 256), soit 2,56 secondes. 

gen£ralit£s 

La duree totale des pas ne doit pas depasser le parametre < duree > de la commande 
SOUND, car le son se termine alors avant d'avoir traverse la totalite des pas. (Le reste 
de l'enveloppe de tonalite est alors ignore). De meme, si la < duree > de la commande 
SOUND depasse la duree totale des pas, le son se poursuit apres avoir traverse tous les 
pas et demeure constant a la tonalite finale. 

La commande ENT peut s'accompagner de 5 < sections d'enveloppo differentes (cha- 
cune constitute des 2 ou 3 parametres ci-dessus). 

Le premier pas d'une enveloppe de tonalite s'execute immediatement. 

Chaque fois qu'une nouvelle enveloppe est attribute a un numero d'enveloppe determine, 
la definition precedente est perdue. 

Un < numero d'enveloppe > sans < section d'enveloppo annule toutes les specifications 
precedentes. 

Pour de plus amples informations, consultez la partie 2 du chapitre « A vos heures de 
loisir... ». 

Mots cles associes : ENV, SOUND 



ENV 

ENV <numero d'enveloppo [,< section d'enveloppo] [,< section d'enveloppo] 

[, < section d'enveloppe > ] [, < section d'enveloppe > ] 

[,< section d'enveloppo] 

10 ENV 1,15,-1,10,15,1,10 
20 SOUND 1,200,300,15,1 
run 

COMMANDE : Definit l'ENveloppe de Volume correspondant au <numero d'enve- 
loppo (entre 1 et 15), utilise avec la commande SOUND. 

Elle peut contenir 2 ou 3 parametres : 

Pour 3 parametres : 

<nombre de pas >,< amplitude du pas>,<duree du pas>. 

Paramdtre 1 : <nombre de pas> 

Specifie le <nombre de pas> de volume qu'un son doit traverser dans la section d'enve- 
loppe. Par exemple, dans une section de 10 secondes, vous pouvez fixer 10 pas de volume 
d'une seconde. Le parametre <nombre de pas> est egal a 10. 

Le parametre peut varier de a 127. 

Paramdtre 2 : < amplitude du pas> 

Peut faire varier le volume de a 15 par rapport au pas precedent. Les 16 volumes diffe- 
rents sont les memes que ceux de la commande SOUND. Le parametre < amplitude du 
pas> peut cependant varier de -128 a +127, le volume revenant a apres avoir atteint 
15. 

Parametre 3 : <duree du pas> 

Specifie la duree d'un pas en unites de 0,01 seconde. Peut varier de a 255 (0 a la valeur 
256), soit 2,56 secondes. 



Pour 2 parametres : 

<enveloppe materielle>,<periode de l'enveloppe> 

Para met re 1 : <enveloppe materielle> 

Specifie la valeur a envoyer au registre d'enveloppe contenu dans le generateur sonore. 

Paramdtre 2 : <periode de I'enveloppo 

Specifie la valeur a envoyer aux registres de periode d'enveloppe contenus dans le genera- 
teur sonore. 

L'utilisation d'enveloppes materielles suppose la connaissance du materiel. Si vous ne 
l'avez pas, il vaut mieux utiliser une enveloppe logicielle integrant un parametre < duree 
du pas> adequat. 

gen£ralit£s 

La duree to tale des pas ne doit pas depasser le parametre de < duree > de la commande 
SOUND, le son se termine alors avant d'avoir traverse tous les pas de volume (le reste 
de l'enveloppe est ignore). 

De meme, si le parametre de < duree > de la commande SOUND depasse la duree totale 
des pas, le son se poursuit apres avoir traverse tous les pas de volume et demeure constant 
au volume final. 

La commande ENV peut contenir 5 sections d'enveloppes differentes (constitutes des 2 
ou 3 parametres ci-dessus). 

Le premier pas d'une enveloppe de volume s'execute immediatement. 

Chaque fois qu'une nouvelle enveloppe est attribuee a un numero d'enveloppe determine, 
la definition precedente est perdue. 

La specification d'un < numero d'enveloppe > sans < section d'enveloppe > annuletoutes 
les valeurs precedentes. 

Pour de plus amples informations, consultez la partie 2 du chapitre « A vos heures de 
loisir... ». 

Mots cles associes : ENT, SOUND 



EOF 

EOF 



10 OPENIN "exl.bas" 

20 WHILE NOT EOF 

30 LINE INPUT #9,4* 

40 PRINT a* 

50 WEND 

60 CLOSEIN 

run 



FONCTION : Pour tester l'etat d'un fichier ouvert. Donne -1 (vrai) si Ton est en fin de 
fichier (End O File) ou si aucun fichier n'est ouvert, sinon donne (faux). 

Mots cles associes : OPENIN, CLOSEIN 



ERASE 

ERASE < liste de:<nom de variablo 

Dili a(100),b*(100) 
ERASE a,b$ 

COMMANDE : Quand un tableau n'est plus necessaire, il peut etre efface (ERASE) afin 
de liberer la memoire pour d'autres utilisations. 

Mots cles associes : DIM 



ERL 

ERL 

10 ON ERROR GOTO 30 

20 GOTO 1000 

30 PRINT"L'erreur est en ligne";ERL 

40 END 

run 

FONCTION : Donne le numero de ligne de la derniere erreur rencontree. Dans l'exemple 
ci-dessus l'ERreur de la Ligne 20 est indiquee par la fonction ERL. 

Mots cles associes : DERR, ERR, ERROR, ON ERROR GOTO, RESUME 



ERR 

ERR 

GOTO 500 

Line does not exist 
Ready 
PRINT ERR 
8 

FONCTION : Donne le numero de la derniere ERReur detectee. Voir la liste des messa- 
ges d'erreur au chapitre « Pour information... ». Dans 1'exemple ci-dessus, le numero 
d'erreur 8 correspond a « Line does not exist » (Ligne non existante). 

Mots cles associes : DERR, ERL, ERROR, OIM ERROR GOTO, RESUME 



ERROR 

ERROR <nombre entier> 

10 IF INKEY$=" n THEN 10 ELSE ERROR 17 
run 

COMMANDE : Decide une action consecutive a une erreur numerotee. Voir la liste des 
messages d'erreur 1 a 32 au chapitre « Pour information... ». L'action est la meme que 
celle prevue par le BASIC en cas d'erreur reelle, faisant appel a un sous-programme de 
traitement d'erreur, le cas echeant, et rapportant les valeurs appropriees d'ERR et ERL. 

ERROR accompagne d'un <nombre entier> compris entre 33 et 255 peut servir a creer 
des messages d'erreur personnalises tels que : 

10 ON ERROR GOTO 1130 

20 INPUT "entrez un caractere" ; a$ 

30 IF LEN(a$X>l THEN ERROR 100 

40 GOTO 20 

100 IF ERR=100 THEN 110 ELSE 130 

110 PRINT CHR$(7) 

120 PRINT H j>ai dit UN caractere ! M 

130 RESUME 20 

run 



Mots cles associes : ERL, ERR, ON ERROR GOTO, RESUME 



EVERY 

EVERY < periode du chronometre > [, < numero du chronometro ] GOSUB < numero de 
ligno 

10 EVERY 50, l GOSUB 30 

20 GOTO 20 

30 SOUND 1,20 

40 RETURN 

run 

COMMANDE : Appelle un sous-programme du BASIC a intervalles reguliers. La 
< periode du chronometro specifie rintervalle par unites de 0,02 seconde. Le < numero 
de chronometre > (compris entre et 3) specifie lequel des quatre chronometres utiliser. 
Le chronometre 3 correspond a la priorite superieure et le a la priorite inferieure. Cha- 
que chronometre peut etre associe a un sous-programme. 

Pour de plus amples informations sur les interruptions, consultez la partie 2 du chapitre 
« A vos heures de loisir... ». 

Mots cles associes : AFTER, REMAIN 



EXP 

EXP (< expression numeriquo 

PRINT EXP(6.B76) 
968.743625 

FONCTION : Calcule «e» a la puissance donnee par F< expression numeriquo ou 
« e » est egal a 2,7182818 environ, le nombre dont le logarithme naturel est 1. 

Mots cles associes : LOG 



FILL 

FILL <encro 

10 DEG: MODE L:M0VE 320, 390: x 1*400: yl=200 

20 FOR i=0 TO 360 STEP 8 

30 x*32B+190*C0S(i) : y«2BB+19B»BIN (i ) s DRAM x,y:MQVE xl.yi 

40 xl=320+80ICOS(i) :yl=200+80ISIN(i) :DRAW x 1, yl : MOVE x,y 

50 NEXT i:TAG:M0VE 240, 200: PRINT H " ; : MOVE 399,200:FILL 3 

run 

COMMANDE : Remplit une zone arbitraire de l'ecran graphique. Les bords de la zone 
sont delimites par les lignes dessinees avec l'encre du stylo en cours ou avec l'encre du 
fond (comprise entre et 1 5). Le remplissage part de la position du curseur graphique. Si 
celui-ci se trouve sur un bord, rien n'est rempli. 

Mots cles associes : GRAPHICS PEN 



FIX 

FIX (< expression numeriquo) 

PRINT FIX (9, 99999) 
9 

FONCTION : Enleve la partie decimale d'une < expression numeriquo en arrondissant 
toujours par defaut. 

Mots cles associes : CINT, INT, ROUND 



FN 

(voir DEF FN) 

FOR 

FOR < variable simple > = < debut > TO <fin >[STEP < increment >] 

IB FOR n=2 TO 8 STEP 2 

20 PRINT n; 

30 NEXT n 

40 PRINT", qui va augmenter ! " 

run 

COMMANDE : Execute la partie du programme se trouvant entre les mots cles FOR et 
NEXT, autant de fois que Ton peut ajouter l'< increment > a la < variable simple > en 
partant du < debut > jusqu'a la <fin>. Si l'< increment > est omis, il prend implicitement 
la valeur 1 . 

La valeur de l'< increment > peut etre negative. Dans ce cas la valeur du parametre 
< debut > doit etre superieure a celle du parametre <fin>, faute de quoi la variable ne 
peut etre incrementee. 

Les boucles FOR NEXT peuvent etre imbriquees. 

L'affectation du nom de variable a la commande NEXT est facultative car le BASIC 
determine automatiquement la commande NEXT a laquelle est associee une commande 
FOR. 

Mots cles associes : NEXT, STEP, TO 



FRAME 

FRAME 



10 MODE 

20 PRINT"sans FRAME" 

30 TAG 

40 MOVE 0,200 

50 FOR x=0 TO 500 STEP 4 

60 IF *=i THEN FRAME 

70 MOVE x,200 

80 PRINT" " ;CHR* ( 143) ; 

90 NEXT 

100 IF f=l THEN RUN 

110 CLS 

120 TAGOFF 

130 PRINT»'avec FRAME" 

140 *=1 

150 GOTO 30 

run 



COMMANDE : Synchronise l'ecriture des graphiques avec les trames video. II en resulte 
un mouvement plus harmonieux des caracteres ou des graphiques a l'ecran sans distor- 
sion et sans scintillement. 



Mots cles associes : TAG, TAGOFF 



FRE 

FRE < expression numeriquo) 
FRE (<chaine alphanumerique > ) 

PRINT "FRE(0) 
PRINT FREC") 



FONCTION : Indique l'espace disponible en memoire. La forme FR E (" ") force l'ordi- 
nateur a mettre de l'ordre avant de donner la valeur de l'espace disponible. 

Mots cles associes : HIMEM, MEMORY 



GOSUB 

GOSUB <numero de ligne> 
GOSUB 210 

COMMANDE : Appelle un sous-programme BASIC en se branchant sur la ligne indi- 
quee. La fin du sous-programme est marquee par la commande RETURN renvoyant le 
programme a Instruction suivant la commande GOSUB. 

Mots cles associes : RETURN 

GOTO 

GOTO <numero de ligne > 

SOTO 90 
COMMANDE : Se branche sur le numero de ligne indique. 
Mots cles associes : Aucun 

GRAPHICS PAPER 

GRAPHICS PAPER <encre> 

10 MODE 

20 MASK 15 

30 GRAPHICS PAPER 3 

40 DRAW 640,0 

run 

COMMANDE : Determine T<encre> du fond graphique. Lors du tracage de lignes, le 
fond n'est pas visible. Dans l'exemple ci-dessus, la commande MASK permet le tracage 
d'une ligne en tirets et la visualisation du fond graphique. 

L'encre du fond (entre et 15) sert a la zone « paper » sur laquelle s'affichent les caracte- 
res, lorsque TAG fonctionne, et fait office de valeur par defaut lors de 1'effacement des 
fenetres graphiques a l'aide de CLG. 

Mots cles associes : CLG, GRAPHICS PEN, INK, MASK, TAG, TAGOFF 



GRAPHICS PEN 

GRAPHICS PEN [<encre>][,<mode du fond>] 

10 MODE 

20 GRAPHICS PEN 15 

30 MOVE 200,0 

40 DRAW 200,400 

50 MOVE 639,0 

60 FILL 15 

run 

COMMANDE : Fixe l'<encre> (entre et 15) pour le dessin des lignes et le positionne- 
ment des points. Le <mode du fond> peut egalement etre fixe : 

0: Fond opaque 
1 : Fond transparent 

(Le fond transparent a une influence sur le fond graphique des caracteres ecrits avec TAG 
et les espaces en lignes pointillees). 

Vous pouvez omettre Tun des parametres mais pas les deux. Si Tun des parametres est 
omis, la valeur specifiee reste inchangee. 

Mots cles associes : GRAPHICS PAPER, INK, MASK, TAG, TAGOFF 



HEX$ 

HEX$ (<nombre en tier sans signe>[,<largeur de zone>] ) 

PRINT HEX$(255,4) 
00FF 

FONCTION : Change un nombre entier en un nombre HEXadecimal equivalent en 
accord avec le nombre de chiffres hexadecimaux indique par la <largeur de zone> (entre 
et 16). Si ce nombre est trop grand, Texpression finale est completee par des zeros a 
gauche du nombre. S'il est trop petit, elle ne sera PAS tronquee mais le nombre de chiffres 
produit sera egal au nombre requis. 

Le < nombre entier sans signe> a convertir sous forme hexadecimale doit produire une 
valeur comprise entre -32768 et 65535. 

Mots cles associes : BIN$, DEC$, STR$, UNT 



HIMEM 

HIMEM 

PRINT HIMEM 
4261? 

FONCTION : Donne l'adresse de l'octet le plus Haut dans la MEMoire utilisee par le 
BASIC (modifiable par la commande MEMORY). 

Mots cles associes : FRE, MEMORY, SYMBOL, SYMBOL AFTER 

IF 

IF < expression logiquo THEN <option>[ELSE <option>] 

10 MODE 1 

20 x=CINT<RND*100) 

30 PRINT"devinez un chiffre (0 a 100)" 

40 INPUT n 

50 IF n<x THEN PRINT n;"est trop petit..." 

60 IF n>x THEN PRINT n;"est trop grand..." 

70 IF n=x THEN 80 ELSE c=c+l:GOT0 40 

80 PRINT"Bien vu ! ";"Trouve en" ; c + 1 ; "f ois !" 

run 



COMMANDE: Determine si l'< expression logiquo est vraie pour executer, le cas 
echeant, la premiere < option >. Si l'< expression logiquo est fausse, l'< option > placee 
apres ELSE s'execute. En absence de deuxieme <option> , le BASIC passe a la ligne sui- 
vante. 

Les commandes IF THEN peuvent etre imbriquees mais se terminent a la fin de la ligne. 
On ne peut done PAS avoir de declarations independantes de IF THEN sur la meme 
ligne. Lorsque le resultat de l'< expression logiquo necessite un saut de ligne, la com- 
mande peut, par exemple, se formuler : 

IF a-1 THEN 100 

...ou : 

IF a-1 GOTO 100 

...ou : 

IF a=l THEN GOTO 100 

Mots cles associes : ELSE, GOTO, THEN 



INK 

INK <encre>,<numero de couleur >[,<numero de couleur>] 

10 MODE 1:PAPER 0:PEN 1 

20 FOR p=0 TO 1 

30 FOR i=0 TO 26 

40 INK p,i 

50 LOCATE 16, 12: PRINT" INK 11 ;p; ", M ; i 

60 FOR t=l TO 400:NEXT t,i,p 

70 INK B v It INK 1,24: CLS 

run 

COMMANDE : Affecte la ou les couleurs a une encre donnee. Le parametre <encre> 
fournit la reference de l'encre (par un entier compris entre et 1 5), a l'intention des com- 
mandes PEN ou PAPER correspondantes. Le premier parametre <numero de couleur> 
(entier) donne une valeur de couleur comprise entre et 26. Si le second parametre de 
couleur facultatif est specifie, l'encre passe d'une couleur a l'autre selon une vitesse definie 
par la commande SPEED INK. 

Le nombre d'encres disponibles depend du mode choisi pour l'ecran. Voir le tableau 1 
des couleurs presente dans la partie 8 du Cours Elementaire. 

Mots cles associes : GRAPHICS PAPER, GRAPHICS PEN, PAPER, PEN, 
SPEED INK 



INKEY 

IN KEY (< nombre entier >) 

10 IF INKEY(55)<>32 THEN 10 

20 PRINT"vous venez d'appuyer [SHIFT] et V" 

30 CLEAR INPUT 

run 

FONCTION : Interroge le clavier pour indiquer les touches pressees. Le clavier est ana- 
lyse tous les cinquantiemes de seconde. Cette fonction sert a detecter la position haute ou 
basse d'une touche par detection de la valeur -1 (independante de l'etat des touches 
[SHIFT] et [CTRL]). 

Dans l'exemple ci-dessus, le systeme detecte l'actionnement simultane de [SHIFT] et V 
(numero de touche 55) avant d'arreter le programme. Les numeros de touche sont donnes 
dans le diagramme situe en haut a droite du boitier de l'ordinateur (voir egalement le 
chapitre « Pour information... ». 



[SHIFT] et [CTRL] sont identifies par les valeurs suivantes 



Valeur 



[SHIFT] 



[CTRL] 



touche specifiee 



-1 



32 

128 

160 



INDIFFERENT 

RELEVEE 

ENFONCEE 

RELEVEE 

ENFONCEE 



INDIFFERENT 

RELEVEE 

RELEVEE 

ENFONCEE 

ENFONCEE 



RELEVEE 
ENFONCEE 
ENFONCEE 
ENFONCEE 

ENFONCEE 



Mots cles associes : CLEAR INPUT, INKEY$, JOY 



INKEYS 



INKEYS 

10 
20 
30 
40 
50 
60 
70 
80 
90 
run 



QUI ou NON (0/N) 



CLS 

PRINT"choisissez 

a*=INKEY$ 

IF a*="" THEN 30 

IF a*="o"QR a$="0" THEN 80 

IF a$="n"0R a$="N" THEN 90 

GOTO 30 

PRINT"Vous avez choisi OUT 

PRINT"Vous avez choisi NON' 



END 



FONCTION : Interroge le clavier pour introduire dans le programme toute chaine de 
caracteres entree. Si aucune touche de clavier n'est actionnee, INKEY$ renvoie une 
chaine vide. Dans l'exemple ci-dessus les lignes 40 et 70 commandent au programme de 
revenir a la ligne 30 apres interrogation du clavier par la fonction INKEYS. 

Mots cles associes : CLEAR INPUT, INKEY 



INP 

INP (<numero du port>) 

PRINT INPC&FF77) 
2S5 



FONCTION : Lit la valeur contenue dans un port d'entrees-sorties dont l'adresse est 
transmise par l'argument de cette fonction. 



Mots cles associes : OUT, WAIT 



INPUT 

INPUT [# <numero de canal >,][;][ <chaine> <separateur>] 

<liste de:< variable > 

10 MODE 1 

20 INPUT "donnez-moi deux nombres a multiplier (separes p 

ar une virgule) " ; a, b 

30 PRINT a;"fois ,, ;b;"*ont";a*b 

40 GOTO 20 

run 

COMMANDE : Regoit les donnees en provenance du canal precise (canal # en 
Tabsence de specification). 

Un point- virgule apres INPUT supprime le passage a la ligne apres execution de la com- 
mande. 

Le <separateur> peut etre un point- virgule ou une virgule. Un point- virgule place apres 
la chaine fait apparaitre un point d'interrogation ; une virgule le supprime. 

Si une entree erronee est effectuee, un O pour un par exemple, BASIC repond : 

?Redo from start 

...ou tout autre message d'erreur programme par vos soins. 

Toute reponse au clavier doit se terminer par [ENTER], 

Mots cles associes : LINE INPUT 



INSTR 

INSTR ( [< position de depart >,]<chaine contenante > , < chaine contenuo) 

IB CLStFQR n=l TO 26 

20 alphabet$=alphabet*+CHR*(n+64) 

30 NEXT 

40 INPUT "entrez une lettre";a$ 

50 b*=UPPER*<a*> 

60 PRINT b$5" est en position"; 

70 PRINT INSTR(alphabet$,b$); 

80 PRINT"dans 1 "al phabet .": PRINT 

90 GOTO 40 

run 

FONCTION : Cherche dans la < chaine contenante > Toccurence de la < chaine conte- 
nue> et indique la position de la premiere occurence de la chaine recherchee. En son 
absence, la fonction indique la valeur 0. 

La position du debut de la recherche est facultative, elle est specifiee par le parametre 
< position de depart > sous la forme d'un entier compris entre 1 et 255. 

En cas de recherche infructueuse, la fonction retourne la valeur 0. 

Mots cles associes : Aucun 

INT 

INT (< expression numerique>) 

PRINT INK-1.995) 
-2 

FONCTION : Arrondit au premier entier inferieur, enlevant la partie fractionnaire. Iden- 
tique a FIX pour les nombres positifs, il donne 1 de moins que FIX pour les nombres 
negatifs qui ne sont pas des entiers. 

Mots cles associes : CINT, FIX, ROUND 



JOY 

JOY (<nombre entier>) 

10 PRINT"Pour arreter le programme - " ; 
20 PRINT" actiannez la manette de jeu" 
30 IF J0Y(B)OB THEN END 
40 GOTO 10 
run 

FONCTION : La fonction JOY lit l'etat de la manette de jeu specifiee par le <nombre 
entier> (O ou 1). Le resultat n'a de signification qu'en binaire. 

Bit Decimal 



0: Haut 


1 


1: Bas 


2 


2: Gauche 


4 


3: Droite 


8 


4: Tir 2 


16 


5: Tir 1 


32 



Ainsi, lorsque vous appuyez sur le bouton de « tir » (Tir 2) de la premiere manette en 
deplagant celle-ci vers la gauche, la fonction JOY (0) envoie une valeur decimale egale a 
20, soit 16 (Tir 2) + 4 (Gauche). 

Pour de plus amples informations, consultez le chapitre « Pour information... ». 
Mots cles associes : CLEAR INPUT, IN KEY 



KEY 

KEY <numero logique de touche > , < chaine alphanumeriquo 

KEY 11, "border 13:paper 8:pen 1 s ink 0,13:ink l,0:mode 2: 
list "+CHR$<13) 

Appuyez sur la petite touche [ENTER]. 

COMMANDE : Associe une chaine a la touche (KEY) correspondant au <numero logi- 
que de touche > specifiee. II existe 32 numeros logiques de touche (de a 31), occupant 
les touches 128 a 159. Les touches 128 (0 sur le clavier numerique) a 140 ( [CTRL] 
[ENTER] sur le clavier numerique) sont associees par defaut aux chiffres a 9, au point 
decimal, a [ENTER] et a RUN " [ENTER] - (pour la cassette), mais peuvent etre asso- 
ciees a d'autres chaines si necessaire. Les numeros logiques de touche 13 a 31 (touches 141 
a 159) sont affectes a des chaines vides par defaut mais peuvent etre etendus et associes a 
des touches,, a Taide de la commande KEY DEF. 



Le < numero logique de touche > fourni dans la commande KEY doit etre compris entre 
et 31 ou entre 128 et 159 pour correspondre aux numeros physiques des touches du 
clavier numerique. (Voir la representation des touches au chapitre « Pour informa- 
tion... »). 

La chaine specifiee ne doit pas depasser 120 caracteres au total . Le depassement de cette 
limite entraine une erreur (5) « Improper argument » (argument incorrect). 

Mots cles associes : KEY DEF 



KEY DEF 

KEY DEF < numero de touche >, < repetition >[,< normal >[,< a vec shift > [,<avec 
control >]]] 

KEY 159, ,, c'est la touche TAB" 
KEY DEF 68,1,159 

Appuyez sur la petite touche [TAB] 

COMMANDE : Definit la valeur logique d'une touche (KEY) DEFinie par son numero 
physique, compris entre et 79 (voir Illustration des numeros de touche en haut a droite 
de Fordinateur ou au chapitre « Pour information... »). Les parametres < normal >, 
<avec shift > et <avec control > doivent contenir les valeurs a envoyer lorsque la touche 
est enfoncee, seule, avec [SHIFT] ou avec [CTRL]. Ces parametres sont facultatifs. 

Le parametre < repetition > permet d'activer et de desactiver la fonction d'auto-repetition 
(1 ou 0). La vitesse de celle-ci est reglable par la commande SPEED KEY. 

Dans Texemple ci-dessus, la touche 159 (correspondant au numero logique 31) est 
d'abord associee a une chaine. La commande KEY DEF definit ensuite la touche 68 
(touche [TAB] ) pour activer P auto-repetition (1) et envoyer la valeur < normal > 159 
lorsque la touche est enfoncee. 

Pour revenir au mode normal : 

KEY DEF 68,0,9 

...9 etant la valeur ASCII normale de [TAB]. 

Mots cles associes : KEY, SPEED KEY 



LEFTS 

LEFT$ (<chaine alphanumerique>,< longueur requiso) 

10 CLS 

20 a*="AMSTRAD H 

30 FOR n=l TO 7 

40 PRINT LEFT*(a*,n) 

50 NEXT 

run 

FONCTION : Extrait un certain nombre de caracteres (entre et 255) a gauche d'une 
<chaine alphanumeriquo. Si la chaine est plus courte que la longueur requise, elle est 
utilisee entierement. 

Mots cles associes : MID$, RIGHT$ 

LEN 

LEN (< chaine alphanumeriquo) 

10 LINE INPUT "entrez une phrase";a$ 
20 PRINT"la phrase est longue de"; 
30 PRINT LEN(a*>; "caracteres." 
run 

FONCTION : Donne le nombre de caracteres de la < chaine alphanumeriquo , les espa- 
ces compris. 

Mots cles associes : Aucun 

LET 

LET <variable> = < expression > 

LET x=100 

COMMANDE : Un reste des BASIC historiques, pour lesquels on devait annoncer ses 
variables. Seulement utile pour la compatibility avec des programmes anterieurs. En 
AMSTRAD BASIC, il suffit d'ecrire : 

x = 100 
Mots cles associes : Aucun 



LINE INPUT 

LINE INPUT # [ <numero de canal >,][;][ <chaine> <separateur>] 

< variable en chaine> 

10 LINE INPUT "tapez une ligne de texte ponctuee. "j a* 

20 CLS 

30 PRINT N la variable a* est bien egale a s- H 

40 PRINT a* 

run 

COMMANDE : Repoit une ligne entiere en provenance du canal indique (# en 
Tabsence de specification). Le premier [;] point-virgule facultatif supprime le retour cha- 
riot/saut de ligne qui intervient normalement apres execution de la commande. 

Le < separateur > peut etre un point-virgule ou une virgule. Le point-virgule entraine Paf- 
fichage d'un point d'interrogation ; la virgule le supprime. 

L'entree de LINE INPUT au clavier se termine par r activation de la touche [ENTER]. 

LINE INPUT en provenance du canal # 9 de la disquette (ou de la cassette) se termine par 
un retour chariot ou par l'affectation de plus de 255 caracteres a la < variable en chaine > . 

Mots cles associes : INPUT 



LIST 

LIST [< ensemble de lignes>][, <numero de canal >] 

LIST 100-1000, «1 

COMMANDE : Liste le programme sur le canal desire. # est l'ecran, # 8 est rimpri- 
mante. Le LISTage peut etre provisoirement interrompu si vous appuyez une fois sur la 
touche [ESC], pour etre ensuite repris a Taide de la barre d'espacement. Si vous appuyez 
deux fois sur [ESC], vous arretez le listage et revenez au mode direct. 

Vous pouvez omettre le premier ou le dernier numero de ligne du parametre < ensemble 
de lignes> pour lister le programme depuis le debut, ou jusqu'a la fin. 

Exemples : 

LIST -200 



...ou : 

LIST 50- 
...ou : 

LIST 
...liste la totalite du programme. 
Mots cles associes : Aucun 

LOAD 

LOAD <nomfich>[,<adresse>] 

LOAD "•fichdisc.xyz",&2AF8 

COMMANDE : Charge en memoire un programme BASIC se trouvant sur disquette, en 
ecrasant tout programme en place. Avec l'option de l'adresse, charge un fichier binaire a 
l'adresse indiquee au lieu de l'adresse a laquelle il se trouvait au moment de la sauvegarde. 

Un programme protege ne peut PAS etre charge par la commande LOAD car il est alors 
immediatement efface de la memoire. Dans ce cas, utilisez RUN ou CHAIN. 

Mots cles associes : CHAIN, CHAIN MERGE, MERGE, RUN, SAVE 

LOCATE 

LOCATE[# <numero de canal >,]<coordonnee x>,<coordonnee y> 

10 MODE 1 

20 FOR n=l TO 20 

30 LOCATE n,n 

40 PRINT CHR$(143); M position H ; 

50 PRINT n; Vi" 

60 NEXT 

run 

COMMANDE : Deplace le curseur de texte vers une nouvelle position relative au coin 
superieur gauche de la fenetre (WINDOW). # represente le canal par defaut. 

Mots cles associes : WINDOW 



LOG 

LOG (< expression numerique >) 

PRINT L0G(9999) 
9.21024037 

FONCTION : Calcule le LOGarithme naturel d'une expression numerique (superieure a 
0). 

Mots cles associes : EXP, LOG 10 

LOG 10 

LOG 10 < expression numerique >) 

PRINT LOG10(9999) 
3.99995657 

FONCTION : Calcule le LOGarithme a base 10 de T<expression numerique> (supe- 
rieure a zero). 

Mots cles associes : EXP, LOG 

LOWERS 

LOWER$ (<chaine alphanumerique >) 

10 a$="REGARDEZ COMMENT LES LETTRES SONT CHANGEES " 

20 PRINT LDWER$(a*+"EN TYPE MINUSCULE") 

run 

FONCTION : Change toutes les majuscules d'une chaine alphanumerique en minuscules. 
Utile quand on attend des reponses composees d'un melange de majuscules et de minus- 
cules. 

Mots cles associes : UPPER$ 



MASK 

MASK [<nombre entier>][,< trace du premier point >] 



10 CLS:TAG 

20 MASK 1:M0VE 0,250:DRAWR 240,0 

30 PRINT" (forme 00000001 du Mask)" 

40 MASK 3:MQVE 0,200:DRAWR 240,0 

50 PRINT" (forme 00000011 du Mask)" 

60 MASK 7:MQVE 0,150:DRAWR 240,0 

70 PRINT" (forme 00000111 du Mask)" 

80 MASK 15: MOVE 0,100:DRAWR 240,0 

90 PRINT" (forme 00001111 du Mask)" 
run 



COMMANDE : Definit le modele a utiliser pour le trace des lignes. La valeur binaire du 
<nombre entier> comprise entre et 255 active (1) ou desactive (0) les bits dans chaque 
groupe adjacent de 8 pixels. 

Le parametre < trace du premier point > determine si le premier point de la ligne doit etre 
trace (1) ou non (0). 

Vous pouvez omettre Tun des parametres mais pas les deux. Si vous en omettez un, sa 
specification demeure inchangee. 

Mots cles associes : DRAW, DRAWR, GRAPHICS PAPER, GRAPHICS PEN 



MAX 

MAX (<liste de: < expression numeriquo) 

10 n = 66 

20 PRINT MAXU, n, 3,6,4, 3) 
run 
66 

FONCTION : Donne la valeur la plus grande (MAXimale) de la liste. 
Mots cles associes : MIN 



MEMORY 

MEMORY <adresse> 

MEMORY &20AA 

COMM ANDE : Definit la quantite de memoire BASIC disponible en fixant Tadresse de 
Foctet le plus eleve. 

Mots cles associes : FRE, HIMEM, SYMBOL, SYMBOL AFTER 

MERGE 

MERGE <nomfich> 

MERGE "nauversi.bas" 

COMM ANDE : Charge un programme a partir de la disquette et l'ajoute au programme 
deja en memoire. 

Les numeros de ligne du programme en place se retrouvant dans le nouveau programme 
sont automatiquement ecrases. 

Les fichiers proteges (SAuVEgardes par SAVE,p) ne peuvent PAS etre fusionnes avec 
un autre programme en place. 

Mots cles associes : CHAIN, CHAIN MERGE, LOAD 

MID$ 

MID$ (<chaine alphanumerique > , < position de depart >[,< longueur de la sous- 
chaine>] ) 

10 MODE 1:Z0NE 3 

20 a$= ,, ENCYCLQPEDIE" 

30 PRINT"Regardez comment epeler f, ja$ 

40 PRINT 

50 FOR n=l TO LEN(a$) 

60 PRINT MID.t(a*,n y l>, 

70 FOR t=i TO 700:NEXT t,n 

B0 PRINT:PRINT 

90 INPUT "entre2 un nouveau mot";a$ 

100 GOTO 50 

run 



FONCTION : Renvoie une nouvelle sous-chaine commencant a la < position de depart > 
de la <chaine alphanumeriquo et contenant le nombre de caracteres correspondant a 
la < longueur de la sous-chaine >. Si le parametre < longueur de la sous-chaine > n 'est pas 
specifie, la fonction renvoie le reste de la <chaine alphanumeriquo a partir de la < posi- 
tion de depart >. 

Si la < position de depart > est superieure a la longueur totale de la <chaine alphanumeri- 
que > , une chaine vide est renvoyee. La < position de depart > est comprise entre 1 et 255, 
la < longueur de la sous-chaine > entre et 255. 

Mots cles associes : LEFT$, RIGHT$ 



MIDS 

M I D$ ( < variable chaine > , < position d'insertion > [, < longueur de la nouvelle chaine > ]) 

= < nouvelle chaine 
alphanumerique> 

10 a$ = ,, bonjour M 

20 MID$(a*,3,2)="XX" 

30 PRINT a$ 

run 

boXXour 

COMMANDE/ Insere dans la chaine specifiee une < nouvelle chaine alphanumeriquo 
d'un nombre de caracteres donne, a la < position d'insertion >. 

Lorsque vous utilisez MID$ en tant que COMMANDE, vous devez faire appel a une 
< variable chaino, tel que A$, et non PAS a une constante comme « bonjour ». 

Mots cles associes : LEFT$, RIGHT$ 



MIN 

MIN (<liste de:< expression numerique>) 

PRINT MIN<3,6,2.999,B,9,) 
2.999 

FONCTION : Donne la valeur la plus petite (MIIMimale) de la <liste de:< expressions 
numeriques>. 

Mots cles associes : MAX 



MOD 

< argument 1> MOD < argument 2 > 

PRINT 10 MOD 3 

1 
PRINT 10 MOD 5 



OPERATEUR : Donne le reste de la division entiere de l'< argument 1 > par 1' < argu- 
ment 2 > (ondit < argument 1> MODulo < argument 2 >). 

Mots cles associes : Aucun 

MODE 

MODE <nombre en tier > 

10 m=l 

20 PRINT"ceci est le mode";(n 

30 PRINT M tapez une touch*" 

40 IF INKEY**"" THEN 40 

50 m=m+l : IF m>2 THEN <n=0 

60 MODE tn 

70 GOTO 20 

run 

COMMANDE : Modifie le mode d'ecran (0, 1 ou 2) et retablit sur l'ecran l'encre 0, meme 
si l'encre actuellement utilisee par le papier est differente. Toutes les fenetres et curseurs 
sont reinitialises. 

Mots cles associes : WINDOW, ORIGIN 



MOVE 

MOVE <coordonnee x>,<coordonnee y>[,[<encre>][,<mode d'encre>]] 

10 MODE 1:TAG 

20 x=RNDt800»100:y=RND*430 

30 MOVE x,y 

40 PRlNT"je suis ici M : 

50 GOTO 20 

run 

COMMANDE : Positionne le curseur graphique au point absolu specifie. Le parametre 
facultatif <encre> (compris entre et 15) permet de changer la couleur du stylo 
graphique. 



Le parametre facultatif < mode d'encre > determine l'interaction de l'encre sur l'affichage 
en place a l'ecran. II existe 4 < modes d'encre > : 

0: Normal 

l:XOR(OUexclusif) 
2: AND (ET) 
3: OR (OU) 

Mots cles associes : MOVER, ORIGIN, XPOS, YPOS 



MOVER 

MOVER <decalage x>,<decalage y>[,[<encre >][,<, mode d'encre >]] 

10 MODE 1: TAG: MOVE 0,16 

20 PRINT"la vie a ses"; 

30 FOR n=l TO 10 

40 MOVER -45,16 

50 PRINT"hauts";:NEXT!PRINT" et"{ 

60 FOR n-1 TO 10 

70 MOVER -64,-16 

80 PRINT"bas";:NEXT 

run 

COMMANDE : Positionne le curseur graphique en coordonnees relatives (par rapport 
a la position actuelle). Le parametre facultatif <encre> (compris entre et 15) permet de 
changer la couleur du stylo graphique. 

Le parametre facultatif <mode d'encre > determine l'interaction de l'encre sur l'affichage 
en place a l'ecran. II existe 4 < modes d'encre > : 

0: Normal 

l:XOR(OUexclusif) 
2: AND (ET) 
3: OR (OU) 

Mots cles associes : MOVE, ORIGIN, XPOS, YPOS 



NEW 

NEW 

NEW 

COMMANDE : Efface le programme et les variables en memoire. Les definitions de 
touches ne sont pas effacees et l'affichage reste ce qu'il etait (MODE, PEN, PAPER, 
INK etc.). 

Mots cles associes : Aucun 

NEXT 

NEXT [<liste de:< variable >] 

10 FOR a=l TO 3 

20 FOR b=0 TO 26 

30 MODE 1 

40 PEN a: BORDER b 

50 PRINT"PEN";a;"BORDER";b 

60 FOR c=l TO 500 

70 NEXT c,b,a 

run 
COMMANDE: Marque la fin d'une boucle commencee avec FOR. La commande 
NEXT peut etre anonyme ou peut se rapporter au FOR concerne. Dans l'exemple ci- 
dessus, la <liste de: variable > doit apparaftre en sens inverse de la specification des com- 
mandes FOR, afin d'eviter le chevauchement des boucles imbriquees. 

Mots cles associes : FOR, RESUME, STEP, TO 

NOT 

NOT < argument > 

IF NOT "alain" < "bernard" THEN PRINT "vrai" ELSE PRINT 

"faux" 

faux 

IF NOT "chat" > "chien" THEN PRINT "vrai" ELSE PRINT 

"faux" 

vrai 



• • ■ • 



PRINT NOT -1 


PRINT NOT 
-I 

OPERATEUR : Execute des operations par bit sur des entiers. Inverse chaque bit de l'ar- 
gument. Pour de plus amples informations, consultez la partie 2 du chapitre « A vos 
heures de loisir... ». 

Mots cles associes : AND, OR, XOR 



ON BREAK CONT 

ON BREAK CONT 

10 ON BREAK CONT 

20 PRINT M Le programme CONTinuera si vous essayez de faire IB 

reakt avec la touche [ESC] tt :PRINT 

30 FOR t»i TO 1000:NEXT:GOTQ 20 

run 

COMMANDE : Annule Taction de la touche [ESC], empechant Tarret du programme. 
Cette commande est a utiliser avec precaution car le programme ne peut alors etre inter- 
rompu que par reinitialisation complete de l'ordinateur (vous devez done sauvegarder le 
programme avant de le lancer). 

Vous pouvez desactiver ON BREAK CONT par ON BREAK STOP a Tinterieur d'un 
programme. 

Mots cles associes : ON BREAK GOSUB, ON BREAK STOP 



ON BREAK GOSUB 

ON BREAK GOSUB <numero de ligne> 

10 ON BREAK GOSUB 40 

20 PRINT M le programme tourne" 

30 GOTO 20 

40 CLS:PRINT"Appuyer 2 fois CESCV; 

50 PRINT M appel le le sous-programme" 

60 FOR t*l TO 2000SNEXT 

70 RETURN 

run 



COMMANDE : Demande au BASIC de passer au sous-programme specific par le 
<numero de ligne> lorsque vous appuyez deux fois sur [ESC]. 

Mots cles associes : ON BREAK CONT, ON BREAK STOP, RETURN 



ON BREAK STOP 

ON BREAK STOP 

10 ON BREAK GOSUB 40 

20 PRlNV'le programme tourne" 

30 GOTO 20 

40 CLS:PRINT"Appuyer 2 fois [ESC],"; 

50 PRINT"appel le le sous-programme" 

60 FOR t=l TO 2000:NEXT 

65 ON BREAK STOP 

70 RETURN 

run 

COMMANDE: Desactive les commandes OIM BREAK COISIT et ON BREAK 

GOSUB pour permettre Tarret du programme sur activation de la touche [ESC]. Dans 
Texemple ci-dessus, la commande ON BREAK GOSUB ne fonctionne qu'une seule fois 
car elle est desactivee a la ligne 65 dans le sous-programme ON BREAK. 

Mots cles associes : ON BREAK CONT, ON BREAK GOSUB 



ON ERROR GOTO 

ON ERROR GOTO <numero de ligne> 

10 ON ERROR GOTO 60 

20 CLS:PRINT"Si une erreur est trouvee, H ; 

30 PRINT"alors LISTer le programme" 

40 FOR t=l TO 4000:NEXT 

50 GOTO 100 

60 PRINT H Erreur detectee a la ligne"; 

70 PRINT ERL:PRINT:LIST 

run 

COMMANDE : Passe a la ligne specifiee aussitot qu'une erreur est detectee. 

La commande ON ERROR GOTO O desactive le deroutement du programme sur 
erreur et retablit le traitement normal des erreurs par le BASIC. 

Voir egalement la commande RESUME 

Mots cles associes : DERR, ERL, ERR, ERROR, RESUME 



ON < expression > GOSUB 

ON <selecteur> GOSUB < liste de:< numero de ligne > 

10 PAPER 0:PEN 1: INK 0, t 

20 CLS:PRINT" MENU ":PRINT 

30 PRINT" 1 - Changer le cadre" :PRINT 

40 PRINT"2 - Changer le stylo":PRINT 

50 P R I N T " 3 - Changer de mode" : PRINT 

60 INPUT "Votre choix M 5x 

70 ON x GOSUB 90, 110, 130 

80 GOTO 20 

90 b=b-l: IF b<0 THEN b = 26 

100 BORDER b:RETURN 

110 p=p-l: IF p<2 THEN p = 26 

120 INK l,p:RETURN 

130 <n = m-l:IF m<0 THEN <n = 2 

140 MODE m:RETURN 

run 



COMMANDE : Selectionne une ligne de sous-programme en fonction de la valeur du 
<selecteur> (nombreentiercomprisentre0et255). L'ordre des valeurs des <selecteurs> 
determine le numero de ligne a extraire de la < liste de:<numeros de lignes>. Dans 
l'exemple ci-dessus : 



1 provoque le passage a la ligne 90, 

2 provoque le passage a la ligne 110, 

3 provoque le passage a la ligne 1 30. 



Si cette expression est egale a zero, ou si elle est superieure au nombre de lignes de la liste 
specifiee dans la commande, la selection n'a pas lieu. 

Mots cles associes : RETURN 



ON < expression > GOTO 

ON <selecteur> GOTO <liste de:< numero de ligne> 

lid CLS:PRINT MENU " : PRINT 

20 PRINT"! - LISTe le programme" : PRINT 

30 PRINT'2 - EOITe pour carriger " : PRINT 

40 PRINT'3 - Fait le CATalogue": PRINT 

50 INPUT "Votre choix";n 

60 ON n GOTO 80,90, 100 

70 GOTO 10 

80 LIS1 

90 AUTO 

100 CAT 

run 

COMM ANDE : Selectionne une ligne a laquelle le programme doit sauter en fonction de 
la valeur du <selecteur> (nombre entier compris entre et 255). L'ordre des valeurs du 
< selecteur > determine le numero de ligne a extraire de la < liste de: < numeros de lignes > . 
Dans Texemple ci-dessus : 

1 provoque le passage a la ligne 80, 

2 provoque le passage a la ligne 90, 

3 provoque le passage a la ligne 1 00. 

Si cette expression est egale a zero, ou si elle est superieure au nombre de lignes de la liste 
specifiee dans la commande, la selection n'a pas lieu. 

Mots cles associes : Aucun 



ON SQ GOSUB 

ON SQ (< numero de canal >) GOSUB < numero de ligne > 

10 ENV 1,15,-1, 1 

20 ON SQ ( 1 ) GOSUB 60 

30 MODE 0:ORIGIN 0,0,200,440,100,300 

40 FOR k=1 TO 13:FRAME:M0VE 330, 200, x 

50 FILL x:NEXT:GQTQ 40 

60 READ s: IF 5=0 THEN RESTORE:SQTQ 60 

70 SOUND L,s,25,15,l 

B0 ON SQ(1> GOSUB 60:RETURN 

90 DATA 50,60,90,100,35,200,24,500,0 

run 



COMMANDE : Provoque un deroutement en cas de place dans une file sonore (Sound 
Queue). Le <numero de canal > est un nombre entier indiquant une des valeurs : 

1: pour canal A 
2: pour canal B 
4: pour canal C 

Pour de plus amples informations concernant la logique sonore, consultez la partie 2 du 
chapitre « A vos heures de loisir... ». 

Mots cles associes : RETURN, SOUND, SQ 



OPENIN 

OPENIN <nomfich> 

1® REM Ouvre et Recoit le fichier en provenance de la 

disquette 

20 OPENIN "NOMFICH": INPUT #?,a,a$ 

30 CLOSEIN:PRINT"les 2 valeurs sont:" 

40 PRINT:PRINT a,a$ 

run 

COMMANDE : Ouvre un fichier existant sur la disquette afin d'y lire des donnees desti- 
nees au programme en memoire. Le fichier a ouvrir doit etre un fichier ASCII. Cet exem- 
ple ne fonctionne que si vous avez cree le fichier selon l'exemple de la commande OPE- 
NOUT. 

Mots cles associes : CLOSEIN, EOF 



OPENOUT 

OPENOUT <nomfich> 

10 REM Ouvre et Sort le fichier sur la disquette 

20 INPUT "Donnez moi un nombre";a 

30 INPUT "Donnez moi un (not";a* 

40 OPENOUT "NOMFICH" 

50 WRITE #9, a, a* 

60 CLOSEOUT:PRINT"les donnees sont sauvees sur disquette" 

run 

COMMANDE : Ouvre sur la disquette un fichier de sortie utiiisable par le programme 
en memoire. 

Mots cles associes : CLOSEOUT 



OR 

< argument > OR < argument > 

IF "alain* < "bernard" OR "chien" > "chat" THEN PRINT 

"vrai" ELSE PRINT "faux" 
vrai 

IF "bernard" < "alain" OR "chat" > "chien" THEN PRINT 

"vrai" ELSE PRINT "faux" 
faux 

IF "aliin" < "bernard" OR "chat" > "chien" THEN PRINT 

"vrai" ELSE PRINT "faux" 
vrai 

PRINT 1 AND 1 

i 

PRINT AND 

19 

PRINT 1 AND 

1 

OPERATEUR : Execute en langage machine des operations booleennes sur des entiers. 
Donne 1 dans tous les cas sauf si ies deux arguments sont egaux a 0. Pour de plus amples 
informations sur la logique, consultez la partie 2 du chapitre « A vos heures de loisir... ». 

Mots cles associes : AND, NOT, XOR 



ORIGIN 

ORIGIN <x>,<y>[,< gauche >,<droite>,<haut>,<bas>] 

113 MODE isBQRDER 13:TA6 

20 ORIGIN 0,0,100,5419,300,100 

30 GRAPHICS PAPER 3:CLG 

40 FOR x=550 TO -340 STEP -10 

50 MOVE x,206 

60 PRINT"Voici une fenetre graphique "; 

70 FRAME:NEXT:G0T0 40 

run 



COMMANDE : Etablit le point d'origine du curseur graphique aux coordonnees <x>, 
<y> specifiees. Vous pouvez egalement fixer les dimensions de la fenetre graphique par 
specification des quatre derniers parametres facultatifs. Si les coordonnees specifiees pour 
la fenetre graphique se trouvent en dehors de Tecran, les bords de Tecran sont alors consi- 
ders comme les limites de la fenetre. 

Mots cles associes : CLG 



OUT 

OUT <numero du port>,<nombre entier> 
OUT fcF8F4,*FF 

COMMANDE : Envoie la valeur du <nombre entier> (entre et 255) vers le port de 
sortie precise par son adresse. 

A deconseiller aux utilisateurs peu avertis. 

Mots cles associes : I IMP, WAIT 

PAPER 

PAPER [ ff <numero du canal >,]<encre> 

10 MODE 0:PEN 0;INK 0,13 

20 FOR p=l TO 15 

30 PAPER p:CLS 

40 LOCATE 7,12:PRINT"PAPER";p 

50 FOR t=l TO 500:NEXT t,p 

run 

COMMANDE : Etablit la couleur du fond pour les caracteres. Lors de Taffichage des 
caracteres sur l'ecran, sa matrice (la grille) est remplie par l'<encre> correspondant au 
papier (PAPER INK) avant qu'il ne soit lui-meme affiche (sauf en cas de mode transpa- 
rent). 

Si le <numero de canal > n'est pas specifie, le canal # est pris par defaut. 

Le nombre de couleurs disponibles depend du mode choisi. 

Mots cles associes : INK, GRAPHICS PAPER, PEN 



PEEK 

PEEK (<adresse>) 

10 MODE 1 : ZONE 7 

20 WINDOW 1, 40, 1 ,2: WINDOW #1,1,40,3,25 

30 PRINT"Adresse memoire" 

40 LOCATE 20, 1 : PRINT "Contenu memoire" 

50 FOR n=0 TO 65535 

60 p=PEEK(n) 

70 PRINT #l,n,"(&";HEX$<n); M >"; 

80 PRINT #1,TAB<20) ;.p , " (&" ; HEX$ (p ) ; " ) H 

90 NEXT 

run 



FONCTION : Lit le contenu de la case memoire dont l'<adresse> est indiquee entre les 
parentheses. Cette adresse doit etre comprise entre &0000 et &FFFF (0 et 65535). PEEK 
n'opere que sur la memoire vive (RAM), jamais sur la memoire morte (ROM), et fournit 
des valeurs comprises entre &00 et &FF (0 et 255). 

Mots cles associes : POKE 



PEN 

PEN # [ <numero de canal >,][<encre>][,< mode du fond>] 

10 MODE 0:PAPER 0:INK 0,13 

20 FOR p=l TO 15 

30 PEN psPRINT SPACE$(47)5 M PEN u ip 

40 FOR t=l TO 500:NEXT t,p:G0T0 20 

run 



COMMANDE : Selectionne T<encre> a utiliser (de a 15) pour ecrire sur le canal indi- 
que (par defaut : #0). Le parametre <mode du fond> peut etre soit transparent (1), soit 
opaque (0). 

Au moins un des deux derniers parametres doit figurer. Si Tun d'eux est omis, sa valeur 
anterieure reste inchangee. 

Mots cles associes : PAPER 



PI 

PI 



PRINT PI 
3.14159265 



FONCTION : Fournit la valeur du rapport circonference-diametre d'un cercle. 
Mots cles associes : DEG, RAD 

PLOT 

PLOT <coordonnee x>,<coordonnee y>[,[<encre>][,<mode d'encre>]] 

10 MODE 1:B0RDER 0:PAPER 0:PEN I 

20 INK 0,0:INK 1, 26: INK 2, 13,26: DEG 

30 FOR x = l TO 360:ORIGIN 320,200 

40 DRAW 50*COS(x) ,50*SlN(x),l 

50 PLOT 100*COS(x),25*SIN(x):NEXT 

60 ORIGIN 0,0:t=TIME+700:WHILE TIME<t 

70 PLOT RND*640,RND*400:WEND 

80 PLOT RND*640,RND*400,2 

90 GOTO 90 

run 



COMMANDE : Affiche, en mode graphique, le point de coordonnees x et y. On definit 
T<encre> de ce point sur une echelle de a 15. 

Le parametre facultatif <mode d'encro determine le mode d'interaction entre la couleur 
utilisee et celle de Tecran. Void les quatre modes possibles : 

: Normal 

1 : XOR (OU exclusif) 

2 : AND (ET) : OR (OU) 

Mots cles associes : GRAPHICS PEN, PLOTR 



PLOTR 

PLOTR <decalage x>,<decalage y>[,[<encre>][,<mode d'encro]] 

10 REM utilisez le pave curseur pour dessiner 

20 BORDER 0:GRAPHICS PEN 1 

30 MODE IsPLOT 320,200 

40 IF INKEY<0)=0 THEN PLOTR 0,1 

50 IF INKEY(1)=0 THEN PLOTR 1,0 

60 IF INKEY(2)=0 THEN PLOTR 0,-1 

70 IF INKEY(8)=0 THEN PLOTR -1,0 

80 IF INKEY(9>=0 THEN 30:REM CC0PY]=CLS 

90 GOTO 40 

run 



COMM ANDE : En mode graphique, affiche a Tecran le point de coordonnees x et y rela- 
tives a la position du curseur a ce moment. On definit l'<encre> de ce point sur une 
echelle de a 15. 

Le parametre facultatif <mode d'encre> definit le mode d'interaction entre la couleur 
utilisee et celle de l'ecran. Void les qua t re modes possibles : 

: Normal 

1 : XOR (OU exclusif) 

2 : AND (ET) 

3 : OR (OU) 

Mots cles associes : GRAPHICS PEN, PLOT 

POKE 

POKE <adresse>,<nombre entier> 

10 FOR <n = 49152 TO 65535 
20 POKE fit, 100 
30 NEXT 
run 



COMM ANDE : Inscrit la valeur corresponcjant au <nombre entier> (compris entre et 
255) directement dans la case de la memoire vive (RAM) dont l'<adresse> est indiquee. 

Commande a utiliser avec precaution ! 

Mots cles associes : PEEK 



POS 

POS (# <numero de canal >) 

10 MODE i: BORDER 0:LQCATE 8,2 

20 PRINT"utilisez les -Heches droite/gauche " 

30 WINDOW 1,40, 12, 12:CURSQR 1,1 

40 FOR n=l TO 19:PR1NT CHR$ (9) ; :NEXT 

50 IF INKEY(1K>-1 THEN PRINT CHR*<9); 

60 IF INKEY(8K>-1 THEft PRINT CHR$(8); 

70 LOCATE #1,2,24 

80 PRINT #l,"curseur texte,"; 

90 PRINT #1, "position horizontals*" j 

100 PRINT ttl,POS(#0):GOTO 50 

run 

FONCTION : Calcule la POSition du curseur de texte sur l'axe horizontal, a partir du 
bord gauche de la fenetre. Le <numero de canal > doit obligatoirement etre precise ; il ne 
prend pas la valeur #0 par defaut. 

POS (#8) calcule la position horizontale du chariot de rimprimante par rapport a la 
marge de gauche (de coordonnee 1). 

POS(#9) calcule la position logique du canal d'unite de disquettes, c'est-a- dire le nom- 
bre de caracteres transmis depuis le dernier « retour chariot ». 

Mots cles associes : VPOS, WINDOW 



PRINT 

PRINT [#<numero de canal >,][<liste de:< article a imprimer>] 

10 a$= ,, petite ,r 

20 b*="Ceci est une iongue chaine de caracteres" 

30 PRINT a*;a* 

40 PRINT a$,a* 

50 PRINT 

60 PRINT b$;b* 

70 PRINT b$,b$ 

run 

COMMANDE : Transmet la >liste de:< article a imprimer> ou a afficher sur le canal 
indique, (#0 par defaut). 



Le point-virgule indique a l'ordinateur qu'un article doit etre imprime immediatement a 
la suite du precedent. Toutefois, s'il est trop long pour tenir sur la meme ligne, Tordina- 
teur passe tout de meme a la ligne. 

La virgule indique qu'un article doit etre positionne a la tabulation suivante. Toutefois, 
si l'impression ou raffichage de Tarticle precedent deborde sur la tabulation indiquee, 
l'ordinateur decale le nouvel article d'une tabulation supplemental. 



PRINT SPC 
PRINT TAB 

PRINT [#<numero de canal >,][<liste de:<article a imprimer>][;] 
[SPC (<nombre entier>)][<liste de:<article a imprimer>] 

PRINT [#<numero de canal >,][<liste de:<article a imprimer>][;] 
[TAB (<nombre entier>)][<liste de:<article a imprimer>] 

10 PRINT'ceci est 1' instruct ion SPC" 

20 FOR x=6 TO 15 

30 PRINT SPC(5) ,, a";SPC(x); ,, b" 

40 NEXT 

50 PRINT"ceci est Instruction TAB" 

60 FOR x=6 TO 15 

70 PRINT TAB (5) "a" ; TAB (x ) ; M b" 

80 NEXT 

run 

SPC menage le nombre d'espaces vides indique par le <nombre en tier > avant d'impri- 
mer ou d'afficher l'article indique, a condition que ce dernier tienne integralement sur la 
ligne. II est done inutile d'utiliser le point-virgule avec la commande SPC. 

TAB menage, a partir de la marge de gauche, le nombre d'espaces vides indique avant 
d'imprimer ou d'afficher l'article designe, a condition que ce dernier tienne sur la ligne. 
Le point-virgule est done inutile apres TAB. Si le curseur a deja depasse la position 
demandee, un changement de ligne est effectue avant la tabulation. 



PRINT USING 

PRINT [# <numero de canal >][<liste de:<article a imprimer>][;] 
[USING <modele de format >][<separateur> < expression > ] 

10 FOR x=l TO IB 

20 n=i00000*(RNDt5) 

30 PRINT tt «archandise";USING "########,##"; n 

40 NEXT 

run 

PRINT USING permet de definir le format d'impression ou d'affichage d'une expression 
transmise par la commande PRINT. On definit pour cela le <modele de format > sous 
lequel on desire voir apparaitre l'expression. On utilise comme <separateur> soit une 
virgule, soit un point- virgule. Le <modele de format > est une chaine de caracteres com- 
posee des « indicateurs de champ » suivants : 

Formats numeriques 

Dans un nombre : 

# Chaque signe # indique Templacement d'un chiffre. 
Exerriple : 



Indique l'emplacement du point decimal (equivalent a notre virgule). 
Exemple : #MMM# 

(Reserve un espace). Ce signe, ne pouvant figurer qu'immediatement avant le point 
decimal, indique que les chiffres situes a gauche du point decimal seront disposes 
par groupes de trois (correspondant aux milliers) separes entre eux par une virgule. 
Exemple: MMM. -M 

Encadrement d'un nombre : 

££ (Reserve deux espaces). Indique que le signe £ apparaitra immediatement avant le 
premier chiffre ou le point decimal, c'est-a-dire sur l'un des emplacements reserves 
aux chiffres. 
Exemple ;££######..## 

(Reserve deux espaces). Indique que tous les espaces vides situes avant le nombre 
seront combles par les asterisques. 
Exemple : 



**M (Reserve trois espaces). Additionne les options ** et MM, c'est-a-dire les 

asterisques en tete et le signe p precedant immediatement le nombre. 

Exempli :**il###M#.4# 

$$ (Reserve deux espaces). Indique que le signe $ apparaitra immediatement 

a gauche du premier chiffre ou du point decimal, c*est-a-dire sur Tun des 
emplacements reserves aux chiffres. 

Exemple :$$######,.# 

**$ (Reserve trois espaces). Additionne les options ** et $$, c'est-a-dire les aste- 

risques en tete et le signe $ precedant immediatement le nombre. 

Exemple :**$######..## 

+ Indique qu'on desire voir figurer le signe du nombre. Ce signe apparaitra 

avant le nombre si le + est situe au debut du <rnodele de format > et apres 
le nombre s'il est situe a la fin. 
Exemple: +####M# 

Le signe - ne peut figurer qu'A LA FIN du masque. II demande la presence 
du signe - apres tout nombre ou tout exposant negatifs. En Tabsence de 
cette specification, le signe - apparait par defaut avant le nombre negatif. 
Exemple ; ####•####- 

TTTT Indique que le nombre doit apparaitre en exposant. Les signes tttt se pla- 

cent APRES le dernier emplacement des chiffres, mais AVANT tout signe 
+ ou - final. 

Exemple :#.###fTTT + 

La longueur maximale du <modele de format > d'un nombre est de 20 caracteres. Les 
nombres sont arrondis au nombre de signes indique. 

Si un format est trop petit pour contenir l'expression saisie : 

PRINT USING ,, ###r t ; 12345678 

...celle-ci n'est pas tronquee, mais apparait dans son integralite, precedee du signe % indi- 
quant un « format errone ». 



Format (Tune chaine alphanumerique 

L0 CLS:a$*"abcdefghi jkUnopqrst" 

20 PRINT"chaine alphanum.= ";a$ 

30 PRINT:PRINT"Avec ! = " ; 

40 PRINT USING "! M ;a$ 

50 PRINT:PRINT "Avec \espaces\ = 

60 PRINT USING " \ \";a$ 

70 PRINTsPRINT "Avec S< = " ; 

80 PRINT USING "fc"ja* 

90 GOTO 90 

run 



! Indique que seul le premier caractere de la chaine doit apparaitre. 
Exemple : ! 

\<espaces> \ 

Indique que seuls les x premiers caracteres de la chaine doivent apparaitre, x etant 
egal a la longueur du format (barres comprises). 
Exemple : \ \ 

& Indique que la chaine doit apparaitre « telle quelle ». 
Exemple : & 

Le <modele de format > d'une chaine ne peut exceder 255 caracteres. 

Tout <modele de format > peut etre represente par une variable alphanumerique, comme 
le montre Texemple suivant : 

10 a*="FF######, .#*" 

20 b$« n !" 

30 PRINT USING a$; 12345. 6789; 

40 PRINT USING b$ ; "cent imes" 

run 

Pour plus de details concernant les formats, voir la deuxieme partie du chapitre intitule 
« A vos heures de loisir... ». 

Mots cles associes : SPC, TAB, USING 



RAD 

RAD 

RAD 

COMMANDE : Etablit le mode de calcul en RADians En BASIC, il est adopte par 
defaut. 

Mots cles associes: ATN, COS, DEG, SIN, TAN 



RANDOMIZE 

RANDOMIZE [< expression numeriquo] 

RANDOMIZE 123.456 
PRINT RND 
0.258852139 

COMMANDE : Donne une valeur aleatoire calculee a partir de l'< expression numeri- 
quo indiquee. Le generateur de nombres aleatoires fournit une sequence pseudo- 
aleatoire dans laquelle chaque nombre depend du precedent. La sequence elle-meme est 
predeterminee. Si la valeur initiale n'est pas precisee dans la commande, c'est Tutilisateur 
qui Tentrera en cours d'execution. RANDOMIZE TIME fournit une sequence prati- 
quement imprevisible. 

Mots cles associes : RND 

READ 

READ <liste de:< variable > 

10 FOR n=l TO 8 

20 READ a$,c 

30 PRINT a$; ,, ";: SOUND l,c:NEXT 

40 DATA voici,478,les,426,8,379,notes 

50 DATA 358,de,319,la,284,gamme,253,.,239 

run 

COMMANDE : Lit les donnees contenues dans une instruction DATA et les assigne a 
des variables. READ passe automatiquement d'une donnee a la suivante. La commande 
RESTORE permet de revenir a une commande DATA anterieure. 

Pour plus de details, voir la deuxieme partie du chapitre intitule « A vos heures de 
loisir... ». 

Mots cles associes : DATA, RESTORE 



RELEASE 

RELEASE <canaux sonores> 

L0 SOUND 65, 113632, 100 

20 PRINT"appuyez LR3 pour liber er la note" 

30 IF INKEY(5I2)=~1 THEN 30 

40 RELEASE 1 

run 

COMMANDE : Libere les canaux sonores bloques par la commande SOUND. 
Le parametre < canaux sonores > prend les valeurs suivantes : 

1 : Libere le canal A 

2 : Libere le canal B 

3 : Libere les canaux A et B 

4 : Libere le canal C 

5 : Libere les canaux A et C 

6 : Libere les canaux B et C 

7 : Libere les canaux A, B et C 

Pour en savoir plus sur le mode sonore, consultez la deuxieme partie du chapitre intitule : 
« A vos heures de loisir... ». 

Mots cles associes : SOUND 

REM 

REM <texte> 

10 REM CHASSE AUX ENVAHISSEURS DANS L * HYPERESPACE 

INTERGALACTIQUE 

20 REM COPYRIGHT by AMSOFT 

COMMANDE : Insere une REMarque dans le programme. BASIC ne tient pas compte 
du <texte> situe sur la ligne a droite de REM, meme si celui-ci comprend un separateur 
d'instructions " : " ou tout autre code. 

On peut remplacer :REM par une apostrophe ' dans tous les cas, SAUF a Finterieur 
d'une instruction DATA. 

Mots cles associes : Aucun 



REMAIN 

REMAIN (< numero de chronometre >) 

10 AFTER 5013,1 60SUB 40 

20 AFTER 100,2 GOSUB 50 

30 PRINT"Le programme tourne" : GOTO 30 

40 REM ce sous programme ne sera plus appele dans la mesure 

ou il a ete rendu innoperant en ligne 70 

50 PRINT:PRINT M Le chronometre 1 va "5 

60 PRINT"etre supprime par REMAIN." 

70 PRINT"i 1 restait ,, sREMAIN(l)5 ,l unites de temps au chrono 1 

run 



FONCTION : Lit le temps restant a decompter par le chronometre indique (de a 3), 
avant de le desactiver. Pour plus de details concernant les interruptions, consultez la 
deuxieme partie du chapitre « A vos heures de loisir... ». 

Mots cles associes : AFTER, Dl, El, EVERY 



RENUM 

RENUM [<nouveau numero de ligne >][,[<ancien numero de ligne >][,< increment >]] 

10 CLS 

20 REM cette ligne deviendra: ligne 123 

30 REM cette ligne deviendra: ligne 124 

40 REM cette ligne deviendra: 1 igne 125 

RENUM 123,20,1 

LIST 

COMMANDE : RENUMerote les lignes d'un programme. 

L'<ancien numero de ligne > est un parametre indiquant la ligne du programme a 
laquelle on desire commencer la renumerotation. En l'absence de ce parametre, toutes les 
lignes du programme seront renumerotees. Le <nouveau numero de ligne > indique le 
nouveau numero de la premiere ligne renumerotee (1 par defaut). L' < increment > indi- 
que l'espacement desire entre deux lignes (10 par defaut). RENUM opere les reajuste- 
ments necessaires a Tinterieur des instructions d'appel telles que GOTO et GOSUB. En 
revanche, il laisse inchange les numeros de lignes contenus dans des chaines de caracteres 
apparaissant dans lescommandes KEY, REM, CHAIN et CHAIN MERGE. Les nume- 
ros de lignes doivent etre compris entre 1 et 65535. 

Mots cles associes : DELETE, LIST 



RESTORE 

RESTORE [<numero de ligno] 

10 READ a*:PRINT a$;" " ; 

28 RESTORE 50 

30 FOR t = l TO 500:NEXT:SOTO 10 

40 DATA les data recuperes peuvent etre lus encore 

50 DATA et encore 

run 

COMMANDE : Ramene le pointeur sur l'instruction DATA indiquee. En Fabsence de 
parametre, le pointeur retourne a la premiere instruction DATA du programme. 

Pour plus de details, consultez la deuxieme partie du chapitre « A vos heures de loisir... ». 

Mots cles associes : DATA, READ 

RESUME 

RESUME [<numero de ligno] 

10 QN ERROR GOTO 60 

20 FOR x = 10 TO STEP-ltPRINT l/x:NEXT 

30 END 

40 PRINT"je viens ici en cas d'erreur" 

50 END 

60 PRINT"erreur No. M ; ERR; H a la lione";ERL 

70 RESUME 40 

run 

COMMANDE : Reprend Fexecution d'un programme apres la detection et le traitement 
d'une erreur par la commande ON ERROR GOTO. Si aucun <numero de ligno n'est 
indique, l'execution du programme reprend a la ligne contenant l'erreur detectee. Suppri- 
mez ce parametre dans Texemple ci-dessus, puis faites tourner le programme. 

70 RESUME 
run 

Mots cles associes : DERL, ERL, ERR, ERROR, 
ON ERROR GOTO, 
RESUME NEXT 



RESUME NEXT 

RESUME NEXT 

10 ON ERROR GOTO 90 

20 PRINT"tapez [ENTER] a chaque fois" 

30 INPUT N t H ;a 

40 INPUT M 2";a 

50 inpot M 3";a:REI1 erreur de syntaxe 

60 INPUT "4" ;a 

70 INPUT "5";a 

80 END 

90 PRINT"erreur No. M ; ERR; "a la ligne";ERl. 

100 RESUME NEXT 

run 



COMM ANDE : Reprend l'execution d'un programme apres la detection et le traitement 
d'une erreur par la commande ON ERROR GOTO. 

L'execution du programme reprend a partir de la ligne suivant immediatement la ligne 
erronee. 

Mots cles associes : DERR, ERR, ERROR, ON ERROR GOTO, RESUME 



RETURN 

RETURN 

10 GOSUB 50:PRINT "Apres le GQSUB n :END 

50 FOR n=i TO 20 

60 PRINT n saus-programme" 

70 NEXT:PRINT 

80 RETURN 

run 

COMMANDE : Indique la fin d'un sous-programme. Apres l'execution d'un sous-pro- 
gramme, BASIC retourne a 1'instruction suivant immediatement l'appel GOSUB corres- 
pondant. 

Mots cles associes : GOSUB 



RIGHTS 

RIGHT$ (<chaine alphanumerique>,< longueur requise>) 

10 MODE i:a$ = n ordmateur CPC664" 
20 FOR n = l TO 17:L0CATE 41-n,n 
30 PRINT RIGHT$(a$,n) 
40 NEXT 
run 

FONCTION : Extrait un certain nombre de caracteres (entre et 255) a gauche d'une 
<chaine alphanumeriquo . Si la chaine est plus courte que la < longueur requise>, elle 
est utilisee entierement. 

Mots cles associes : LEFT$, MID$ 

RND 

RND [(< expression numerique>)] 

10 RANDOMIZE 

20 FOR x=l TO -1 STEP -1 

30 PRINT"parametre RND= H ;x 

40 FOR n=l TO 6 

50 PRINT RND(x) 

60 NEXT n,x 

run 

FONCTION : Fournit le prochain nombre de la sequence pseudo aleatoire en cours lor- 
que T< expression numerique> est positive ou lorsqu'elle ne figure pas dans la com- 
mande. 

Lorsque F< expression numerique> est nulle, RND renvoie le dernier nombre genere. 

Une valeur negative de T < expression numerique> lance une nouvelle sequence aleatoire, 
dont RND fournit le premier element. 

Mots cles associes : RANDOMIZE 



ROUND 

ROUND (< expression numerique>[,< nombre de decimates >] ) 

10 FOR n=4 TO -4 STEP -1 

20 PRINT R0UND(1234.5678,n), 

30 PRINT "arrondi a" 5 nj "decimales" 

40 NEXT 
run 

FONCTION : Arrondit l'< expression numeriquo au nombre de chiffres apres la vir- 
gule ou de puissances de dix indique par le parametre < nombre de decimates >. Si ce 
parametre est negatif, l'expression est arrondie a un entier absolu, suivi d'un nombre de 
zeros egal a sa valeur absolue. 

Mots cles associes : ABS, CINT, FIX, INT 

RUN 

RUN <chaine alphanumerique > 
RUN "rointine.dea" 

COMMANDE : Charge et execute un programme BASIC ou un programme-objet situe 
sur la disquette. Tout programme deja present en memoire est automatiquement ecrase. 

Cette commande permet d'acceder directement aux programmes BASIC proteges. 

Mots cles associes : LOAD 

RUN 

RUN [<numero de ligne>] 
RUN 200 

COMMANDE : Execute le programme BASIC present en memoire, en commenQant au 
<numero de ligne> indique ou, a defaut, au debut du programme. RUN reinitialise tou- 
tes les variables. 

Cette commande peut ne pas donner acces aux programmes proteges charges en 
memoire. 

Mots cles associes : CONT, END, STOP 



SAVE 

SAVE <nomfich>[,<type de fichier >][,<parametres binaires>] 

SAVE "fichdisc.xyz" 
...sauvegarde le fichier en mode BASIC non protege. 

SAVE "fichdisc.xyz", P 
...sauvegarde le fichier en mode BASIC Protege. 

SAVE "fichdisc.xyz", A 
...sauvegarde le fichier en mode ASCII. 

SAVE "fichdisc.xyz ",8,8000,3000, 8001 

...sauvegarde le fichier en mode Binaire. Dans notre exemple, le programme sera stocke 
en memoire a partir de l'adresse 8000 et occupera 3000 octets. L'adresse (facultative) 
du point d'entree est 8001 . 

COMMANDE : Sauvegarde sur disquette le programme se trouvant actuellement en 
memoire. Une zone memoire chargee sur disquette s'appelle un fichier Binaire. Voici 
quels sont les differents parametres Binaires : 

<adresse du debut >,<taille du fichier >[,< point d'entreo] 

II est possible de sauvegarder la memoire d'ecran sous forme de fichier Binaire. Cette 
operation, appelee « vidage d'ecran », s'effectue au moyen de la commande suivante : 

SAVE M ecran",B,&C000,&4000 

On obtient ensuite son rechargement a Tecran en entrant la commande : 
LOAD "scran" 

Mots cles associes : CHAIN, CHAIN MERGE, LOAD, MERGE, RUN 



SGN 

SGN (< expression numerique>) 

10 FOR n = 200 TO -200 STEP -20 

20 PRINT" SGN renvoi"; 

30 PRINT SGN(n) ; "pour une valeur de: n ;n 

40 NEXT 
run 

FONCTION: Etablit le SiGNe de l'< expression numerique>. SGN renvoie les 
valeurs : -1 (si l'expression est negative), (si elle est nulle) et 1 (si elle est positive). 

Mots cles associes : ABS 



SIN 

SIN (< expression numerique>) 

10 CLS:DES:ORIGIN 0,200 

20 FOR n=0 TO 720 

30 y=SIN(n) 

40 PLOT n*640/720,198*y:NEXT 

50 GOTO 50 

run 

FONCTION : Calcule le SINus de l'< expression numerique> indiquee. 

On peut exprimer Targument en degres ou en radians en utilisant, respectivement, les 
fonctions DEG et RAD. 

Mots cles associes : ATN, COS, DEG, RAD, TAN 



SOUND 

SOUND <etat de canal >,< periode sonore > [,< duree >[,< volume >[,< en veloppe de 
volume >[,< en veloppe de tonalite >[,< periode du bruit >]]]]] 

10 FOR z=0 TO 4095 
20 SOUND l,z, 1,12 
30 NEXT 
run 

COMMANDE : Permet la programrnation d'un son, a l'aide des parametres suivants : 



Parametre 1 : <etat de canal > 

L'<etat de canal > admet pour valeur des entiers compris entre 1 et 255. La conversion 
en binaire de ce parametre donne la signification de chaque bit, selon la table de corres- 
pondance suivante : 

Bit (1 en decimale) : sortir le son sur le canal A (Bit de poids faible) 

Bit 1 (2 en decimale) : sortir le son sur le canal B 

Bit 2 (4 en decimale) : sortir le son sur le canal C 

Bit 3 (8 en decimale) : rendez-vous avec le canal A 

Bit 4 (16 en decimale) : rendez-vous avec le canal B 

Bit 5 (32 en decimale) : rendez-vous avec le canal C 

Bit 6 (64 en decimale) : bloquer un canal sonore 

Bit 7 (128 en decimale) : vider un canal sonore (Bit de poids fort) 

L'<etat de canal > 68, par exemple, aura Peffet suivant : 

Sortie sur le canal C (4), a 1'etat bloque (64). 



Parametre 2 : < periode sonore > 

Ce parametre etablit la hauteur du son, c'est-a-dire la « note » produite (par exemple Do, 
Re, Mi, Fa, Sol). Chaque note se definit par une valeur numerique representant sa 
< periode sonore > (Voir le chapitre « Pour information... ». 



Parametre 3 : < duree > 

Ce parametre etablit la longueur, ou « duree », du son. 1 unite correspond a un centieme 
de seconde. La < duree > du son prend par defaut la valeur 20, c'est-a-dire un cinquieme 
de seconde. 



En cas de parametre de <duree> nul, la longueur du son sera celle de l'enveloppe de 
volume indiquee. 

Si le parametre de <duree> est negatif, Penveloppe de volume sera repetee pendant un 
nombre de fois egal a la valeur absolue du parametre. 

Paramdtre 4 : <volume> 

Ce parametre etablit le volume sonore initial d'une note. II peut prendre une valeur entre 
(volume nul) et 15 (volume maximal). L'ordinateur choisit par defaut la valeur 12. 

Parametre 5 : <enveloppe de volume> 

II est possible de moduler le volume d'une note durant son execution a l'aide de la com- 
mande EN V. Cette commande vous permet de definir a l'avance un maximum de quinze 
enveloppes differentes, codees de 1 a 15. Le parametre <enveloppe de volume > de la 
commande SOUND permet ensuite de selectionner une de ces enveloppes predefinies. 

Voir la commande ENV 

Parametre 6 : <enveloppe de tonalit6> 

Des variations de periode, done de hauteur, peuvent etre obtenues durant Texecution 
d'une note par l'intermediaire de la commande ENT. Cette commande vous permet de 
definir a l'avance un maximum de 15 enveloppes de tonalite differentes, codees de 1 a 
15. Le parametre <enveloppe de tonalite > de la commande SOUND permet ensuite de 
selectionner une de ces enveloppes predefinies. Si, dans la commande ENT, vous avez 
utilise un numero d'enveloppe negatif, la valeur absolue de ce nombre devra alors etre 
prise comme parametre de la commande SOUND. 

Voir la commande ENT. 

Parametre 7 : < periode de bruit > 

Vous disposez d'un choix de bruits blancs pouvant etre ajoutes ou supprimes du signal 
sonore a l'aide du parametre < periode du bruit > (valeur comprise entre et 31). 

Pour en savoir plus sur le mode sonore, lire la deuxieme partie du chapitre intitule « A 
vos heures de loisir... » 



Mots cles associes : ENT, ENV, ON SQ GOSUB, RELEASE, SQ 



SPACES 

SPACE$ (<nombre entier>) 

IB MODE t 

20 PRINT"met 9 espaces entre vous"; 

30 PRINT SPACE$(9); 

40 PRINT"et moi !" 

run 

FONCTION : Cree une chaine d'espaces de la longueur indiquee (de a 255) 
Mots cles associes : SPC, STRING$, TAB 

SPC 

(Voir PRINT SPC) 

SPEED INK 

SPEED INK <periode l>,<periode 2> 

10 BORDER 7,18 

20 FOR i=30 TO 1 STEP -1 

30 SPEED INK i,i 

40 FOR t»l TO 700:NEXT t,i 

run 

COMMANDE : Permet d'etablir la periode d'alternance lorsqu'une instruction INK ou 
BORDER present Tutilisation de deux couleurs intermittentes. Les durees respectives 
d'utilisation de la premiere et de la seconde couleur sont indiquees en cinquantiemes de 
secondes par les parametres < periode 1 > et < periode 2>. 

Lors du choix des parametres, pensez aux risques d'effets secondaires hypnotiques ! 

Mots cles associes : BORDER, INK 



SPEED KEY 

SPEED KEY <delai initial >,< intervalle inter-repetitions > 

18 CLSiFOR K=7 TO 1 STEP -2 

20 PRINT N Entrez votre no* ,puis CENTER]"" 

30 SPEED KEY k,k 

40 LINE INPUT a$;NEXT 

50 PRINT"quel drole de nam ! " 

run 

COMMANDE : Etablit la vitesse de repetition automatique du clavier. Le parametre 
<delai initial > fixe le temps de reaction (mesure en cinquantiemes de secondes) entre Fen- 
foncement de la touche et le debut de la repetition automatique. L' < intervalle inter-repe- 
titions > etablit le laps de temps separant les repetitions. 

La commande SPEED KEY ne concerne que les touches pour lesquelles la repetition 
automatique existe implicitement ou celles pour lesquelles cette fonction a ete program- 
mee au moyen de la commande KEY DEF. 

Avant de definir une repetition automatique a tres faible <delai initial >, il est prudent 
de programmer une des^ touches numeriques afin de pouvoir retablir les parametres par 
defaut de la fonction SPEED KEY (30,2). Voici comment proceder : 

KEY 0, "SPEED KEY 30, 2 M +CHR$ ( 13) 

II suffira, pour revenir a l'etat initial, d'actionner la touche du pave numerique. 

Mots cles associes : KEY DEF 

SPEED WRITE 

SPEED WRITE <nombre entier> 
SPEED WRITE 1 

COMMANDE : Indique la vitesse de transmission des donnees de Tordinateur vers un 
lecteur de cassettes, le cas echeant. Cette vitesse est soit de 2000 bauds (bits par seconde) 
si le parametre est egal a 1 , soit, par defaut, de 1000 bauds si celui-ci est egal a 0. Lors du 
chargement d'un fichier enregistre sur cassette, Tordinateur choisit automatiquement la 
bonne vitesse de lecture. 

SPEED WRITE est le debit assurant la meilleure fiabilite de transfert. 

La commande SPEED WRITE ne s'applique pas aux unites de disquettes. 

Mots cles associes : OPENOUT, SAVE 



SQ 

SQ (<numero de canal >) 

10 SOUND 65,100,1(30 
20 PRINT SQ(1) 
run 
67 

FONCTION : Indique l'etat de la file d'attente (Sound Queue) dans un canal sonore 
donne. Le <numero de canal > doit etre une expression numerique entiere prenant les 
valeurs : 

1 : canal A 

2 : canal B 
4 : canal C 

Cette fonction fournit un entier correspondant aux bits de signification suivants : 

Bits 0, 1 et 2 : nombres d'entrees libres dans la file 
Bits 3, 4 et 5 : etat du rendez-vous au debut de la file 
Bit 6 : la tete de la file est bloquee 
Bit 7 : le canal est en activite 

... ou le Bit represente le bit de poids faible, et le Bit 7 celui de poids fort. 

On peut constater que si le Bit 6 est a 1, le Bit 7 ne peut pas l'etre. De meme si les Bits 3, 
4 ou 5 sont a 1, les Bits 6 et 7 ne peuvent pas l'etre. 

Pour plus de details, voir la deuxieme partie du chapitre intitule « A vos heures de 
loisir... » 

Mots cles associes : ON SQ GOSUB, SOUND 



SQR 

SQR (< expression numerique >) 
PRINT SQRC9) 

Of 

FONCTION : Fournit la racine carree (SQuare Root) de l'expression numerique indi- 
quee. 

Mots cles associes : Aucun 



STEP 

(voir FOR) 

STOP 

STOP 

10 FOR n*l TO 30-.PRINT n:NEXT 

20 STOP 

30 FOR n=31 TO 60: PRINT n:NEXT 

run 

cant 

COMMANDE : Interrompt un programme, tout en laissant a l'utilisateur la possibility 
d'en reprendre Texecution au moyen de la commande CO NT. STOP ; permet ainsi d'in- 
terrompre un programme a un endroit donne afin d'effectuer une mise au point. 

Mots cles associes : CO NT, END 



STR$ 

STR$ (< expression numerique>) 

10 a=&FF;REM 255 hexadecimal 

20 b«*Xllll:REN 15 binaire 

30 c$= u ttt" 

40 PRINT c$+STR*(a+b)+c$ 

run 

tit 270ttt 

FONCTION : Fournit sous forme de chaine alphanumerique la representation decimale 
de T< expression numeriquo indiquee.: 

Mots cles associes : BIN$, DECS, HEX$, VAL 



STRINGS 

ST R I N G $ ( < longueur > , < caractere > ) 

PRINT STRING*<40,"»") 
t%t%tt%t%t%%t%tttttt%tttt%%ttt%ttt%tttt% 

FONCTION : Fournit une chaine de caracteres de la longueur indiquee (entre et 255) 
constitute par la repetition d'un meme caractere. L'exemple ci-dessus peut egalement 
s'ecrire : 

PRINT STRING$<40,42> 
tt%t%t%ttt%%tt%tttttt%ttttt%ttttt%tttt%t 

...ou le < caractere > 42 correspond a la valeur en code ASCII du caractere « * ». Cette 
notation equivaut done a PRINT STRING$(40,CHR$(42)). 

Mots cles associes : SPACES 

SWAP 

(voir WINDOW SWAP) 

SYMBOL 

SYMBOL <numero de caractere >,< liste de:<ligne> 

IB MODE la SYMBOL AFTER 105 

20 rangeel=255:REM 11111111 en binaire 

30 rangee2=129:REM 10000001 en binaire 

40 rangee3=189:REM 10111101 en binaire 

50 rangee4 = 153:RE)i 10011001 en binaire 

60 rangee5=l 53: REM 10011001 en binaire 

70 rangee6=189:REM 10111101 en binaire 

80 rangee7=129:REM 10000001 en binaire 

90 rangee8=255:REM 11111111 en binaire 

100 PRINT"La ligne 110 redefinie la lettre i(105). Tapez que 

lques ' i ' et regardez ! " 

110 SYMBOL 105, rang eel , ran gee 2, r an gee3, ran gee4, ran gee5, range 

e6, rangee7, rangeeS 

run 



COMMANDE : Redefinit la forme d'un caractere affiche a l'ecran. Chacun des parame- 
tres prend une valeur entiere situee entre et 255. 



Afin d'etre en mesure d'attribuer une place en memoire a un caractere redefini, Tordina- 
teur doit avoir ete prepare par la commande : 

SYMBOL AFTER x 
...ou x est inferieur ou egal au numero du caractere a redefinir. 

On entre ensuite la commande SYMBOL, suivie immediatement du numero de caractere 
x. 

On peut toujours faire apparaitre a l'ecran le caractere correspondant a la valeur de x, 
meme s'il n'est pas accessible par Tintermediaire du clavier. On utilise pour cela la com- 
mande : 

PRINT CHR$(x) 

Apres SYMBOL x viennent les huit parametres definissant une a une les huit lignes 
constituant le caractere, en commenQant par le haut. Chacun des parametres prend une 
valeur comprise entre et 255. C'est la representation binaire du parametre qui definit le 
motif de la ligne correspondante dans le nouveau caractere. 

Si, par exemple, on donne au premier parametre la valeur 1, la representation en binaire 
de la premiere rangee sera alors : 00000001. Le point correspondant au 1 apparaitra dans 
le caractere et sera de la couleur definie dans la commande PEN. En revanche, les points 
correspondant aux seront affiches avec la couleur PAPER, c'est-a-dire qu'ils n'apparai- 
tront pas. On peut done constater que le caractere redefini dans notre exemple compor- 
tera un point dans le coin superieur droit. Si Ton attribue aux sept autres parametres les 
valeurs : 3, 7, 1 5, 31 ,63, 0, 0, on obtient la representation en binaire suivante : 

parametre (rangee) 1 : 00000001 (1 en decimale) 
parametre (rangee) 2 : 0000001 1 (3 en decimale) 
parametre (rangee) 3 : 000001 11 (7 en decimale) 
parametre (rangee) 4 : 00001 1 11 (15 en decimale) 
parametre (rangee) 5 : 0001 1111 (31 en decimale) 
parametre (rangee) 6 : 001 1 1 1 1 1 (63 en decimale) 
parametre (rangee) 7 : 00000000 (0 en decimale) 
parametre (rangee) 8 : 00000000 (0 en decimale) 

Cette disposition des parametres transcrits en binaire permet de visualiser la forme du 
nouveau caractere. On peut affecter ces parametres au caractere numero 255, par exem- 
ple, au moyen de la commande : 

SYMBOL 255,1,3,7,15,31,63,0,0 



On remarque qu'il est inutile de faire figurer les deux derniers parametres dans la mesure 
ou il sont nuls. 

SYMBOL 255, 1,3,7,15,31,63 

On peut eviter de convertir en notation decimate les symboles binaires constituant le 
« dessin » du caractere. II suffit pour cela d'introduire les parametres directement en 
binaire, sans oublier le prefixe &X. Dans notre cas : 

SYMBOL 255, &X00000001 , &X000000 1 1 , &X00000 1 1 1 , &X0000 1 1 1 1 
U0001iLil,*<X00tillll 

Voici maintenant la commande permettant de faire apparaitre le caractere : 

PRINT CHR$(255) 

Si les parametres ci-dessus sont affectes a un des caracteres du clavier, le caractere redefini 
apparaitra chaque fois qu'on actionnera la touche correspondante, de meme qu'a chaque 
commande PRINT le concernant. Ce nouveau caractere sera accepte par le BASIC 
comme r equivalent du caractere remplace. 

Pour plus d'informations concernant la redefinition de caracteres, voir la deuxieme partie 
du chapitre intitule « A vos heures de loisir... ». 

Mots cles associes : HIMEM, MEMORY, SYMBOL AFTER 



SYMBOL AFTER 

SYMBOL AFTER <nombre entier> 

10 CLS 

20 SYMBOL AFTER 115 

30 PRINT"La ligne 40 redefinie la le'ttre s " ; 

40 SYMBOL 115,0,56,64,64,48,8,8,112 

50 PRINT n en s H 

60 PRINT"on revient a Tetat normal en tapants 

70 PRINT"SYMBOL AFTER 240" 

run 



COMMANDE : Fixe la limite inferieure des numeros de caracteres redefinissables (de 
a 255). La valeur par defaut du nombre entier est de 240, auquel cas on dispose de 16 
caracteres redefinissables (entre 240 et 255). Lorsque le < nombre entier > a pour va- 
leur 32, tous les caracteres situes entre 32 et 255 sont redefinissables. La commande 
SYMBOL AFTER 256 interdit done toute redefinition de caractere. 

La commande SYMBOL AFTER retablit la valeur par defaut de tous les caracteres pre- 
cedemment redefinis. 



La commande SYMBOL AFTER ne peut PAS fonctionner si la valeur de HIM EM a 
ete precedemment modifiee par une commande MEMORY ou par l'ouverture d'un 
fichier au moyen de OP EN IN ou OPEN OUT. L'ordinateur affiche dans ce cas le mes- 
sage d'erreur « Improper argument », (a moins que l'etat precedent ne soit SYMBOL 
AFTER 256). 

Pour plus de details concernant les caracteres redefinissables, consultez la deuxieme par- 
tie du chapitre intitule « A vos heures de loisir... » 

Mots cles associes : HIM EM, MEMORY, SYMBOL 



TAB 

(voir PRINT TAB) 

TAG 

TAG [ # <numero de canal >] 

10 INPUT "entrez votre nam" ; a*: CLS 

20 PRINTQuel va et vient u ;a$5" !!" 

30 TAG 

40 x=LEN<a$)*17:y=50+RND*300:MQVE -x,y 

50 FOR f*-x TO 640 STEP RNDt7+3 

60 MOVE f,y:PRINT" " ; a*; :FRAME: NEXT 

70 FOR b=640 TO -x STEP -RNDI7+3 

80 MOVE b,y:PRINT a*;" " ; \ FRAMEi NEXT 

90 GOTO 40 

run 



COMMANDE : Ecrit le texte specifie a la position du curseur graphique. Cette com- 
mande permet d'introduire du texte et des symboles dans un graphique et de les deplacer 
pixel par pixel plutot que caractere par caractere. Le numero de canal prend par defaut 
la valeur # 0. 

L'extremite gauche de la chaine de caracteres se positionne sur le curseur graphique (Text 
At Graphics), Les caracteres de controle non visualises tels que le changement de ligne 
ou le retour chariot n'auront aucun effet a Tecran si Tinstruction PRINT est terminee par 
un point-virgule ; dans le cas contraire, ils apparaitront sous leur forme graphique. 

Si Pindicateur de canal est # (par defaut), BASIC annule la commande TAG lors du 
retour en mode direct. 

Mots cles associes : TAGOFF 



TAGOFF 

TAGOFF [ # <numero de canal >] 

10 MODE 2:TAG:REM texte aux coordonnees graphiques 

20 annee=1984:F0R x = i TO 640 STEP 60 

30 MOVE x,400:DRAWR 0,-350 

40 annee=annee+l : PRINT annee;:NEXT 

50 TA60FF:REM retour aux coordonnees texte 

60 LOCATE 28,25:PRINT"chiHres annutlf" 

70 GOTO 70 

run 



COMMANDE : Annule la commande TAG concernant le canal indique (# par 
defaut). Le texte se trouve done a nouveau dirige sur la position du curseur de texte. 

Mots cles associes : TAG 



TAN 

TAN (< expression numeriquo) 

PRINT TAN(45) 
i. 61977319 



FONCTION : Calcule la TANgente de l'< expression numeriquo, qui doit etre com- 
prise entre -200000 et + 200000. 

On peut exprimer Targument en degres ou en radians par 1'intermediaire des fonctions 
DEG et RAD, respectivement. 

Mots cles associes : ATN, COS, DEG, RAD, SIN 



TEST 

TEST (<coordonnee x>,<coordonnee y>) 

10 CLS 

20 PRINT"Vous utilisez le stylo (pen) No:"; 

30 PRINT TEST<12,394) 

40 PRINTChanqez de mode et de stylo"; 

50 PRINT"... puis faites RUN." 

run 



FONCTION : Place le curseur graphique a la position definie par x et y (en coordonnees 
absolues) et indique la valeur du parametre <encre> a cet endroit. 

Mots cles associes : MOVE, MOVER, TESTR, XPOS, YPOS 



TESTR 

TESTR (<decalage x>,<decalage y>) 

10 MODE 0sFOR x=l TO ISsLOCATE l,x 

20 PEN xsPRINT STRING* (10, 143) ; s NEXT 

30 MOVE 200,400:PEN 1 

40 FOR n=t TO 23sL0CATE 12, n 

50 PRINVpen"; TESTR (0,-16): NEXT 

run 

FONCTION : Place le curseur sur une position de coordonnees x et y par rapport a sa 
position actuelle et indique la valeur du parametre <encre> a cet endroit. 

Mots cles associes : MOVE, MOVER, TEST, XPOS, YPOS 



THEN 

(voir IF) 



TIME 

TIME 



10 CLS:REM horloge 

20 INPUT "heure"5heure 

30 INPUT "minute"; minute 

40 INPUT "seconde";seconde 

50 CLSsdonnee=INT(TIME/300) 

60 WHILE heure<13 

70 WHILE minute<60 

80 WHILE tic<60 

90 tic=(INT(TIME/300)-donnee)+seconde 

100 LOCATE 1,1 

110 PRINT USING "## "$heure;fltinute;tic 

120 WEND 

130 t ic=0: second e=0: minute=minute+l 

140 GOTO 50 

150 WEND 

160 minute=0:heure=heure+l 

170 WEND 

180 heure=l 

190 GOTO 60 

run 



FONCTION : Indique le temps ecoule depuis la mise sous tension de l'ordinateur ou la 
derniere commande RESET (les temps de transfert entre l'ordinateur et l'unite de dis- 
quette ne sont pas comptes). 

A chaque seconde correspond une fois la valeur : TIME/300. 

Mots cles associes : AFTER, EVERY, WEND, WHILE 

TO 

(Voir FOR) 



TROFF 
TRON 

TROFF 
TRON 

10 TRQFF:PRINT:PRINT n TRQFF" 

20 FOR n=l TO 8 

30 PRINT M Le programme tourne" : NEXT 

40 IF f=l THEN END 

50 TRON:PRINT:PRINT "TRON" 

60 f =1: GOTO 20 

run 

COMMANDE : Permet de suivre l'execution d'un programme par Taffichage de chaque 
numero de ligne executee. Ce numero est affiche entre crochets []. Cette fonction s'ob- 
tient au moyen de la commande TRON. La commande TROFF retablit le mode normal 
d'execution. La commande TRON est particulierement precieuse lorsque Ton desire 
suivre ligne par ligne le deroulement d'un programme afin de corriger une erreur. 

Mots cles associes : Aucun 



UNT 

UNT (<adresse>) 

PRINT UNT(&FF66) 
-154 

COMMANDE : Convertit Targument en un nombre entier signe (en representation : 
complement a 2) compris entre -32768 et 32767. 

Mots cles associes : CINT, FIX, INT, ROUND 

UPPERS 

UPPER$ (<chaine alphanumerique>) 

10 CLS:a$ = "(nes petites, coaiflie vous avez grandies !" 

20 PRINT UPPER$(a$) 

run 

FONCTION: Recopie la <chaine alphanumerique> indiquee en remplagant par des 
majuscules les caracteres alphabetiques (de A a Z) apparaissant en minuscules. Cette 
fonction s'utilise en particulier pour le traitement d'entrees dans lesquelles se trouvent 
melangees des majuscules et des minuscules. 

Mots cles associes : LOWER$ 



USING 

(voir PRINT USING) 

VAL 

VAL (<chaine de caracteres>) 

10 CLSsPRINT ,l Je connais mes tables ! " 

20 PRINT:PRINT ,, pres&e2 une touche (1-9)" 

30 a$=INKEY»:IF a**"" THEN 30 

40 n = VALU$):IF n<l OR n>9 THEN 30 

50 FOR x=l TO 12 

60 PRINT n; "X";x; " = "in*x 

70 NEXT:B0TQ 20 

run 

FONCTION : Fournit la VALeur numerique du ou des premiers caracteres (y compris 
le signe negatif et le point decimal) de la <chaine alphanumerique> indiquee. 

On obtient la valeur lorsque le premier caractere de la chaine n'est pas un chiffre. Si le 
signe « - » apparait en premier caractere ou si cetui-ci est un point decimal suivi d'un 
caractere non numerique, le message d'erreur « Type mismatch » (erreur de frappe) 
(13) s'affiche a Tecran. 

Mots cles associes : STR$ 



VPOS 

VPOS ( # <numero de canal >) 

10 MODE isBQRDER 0:LOCATE 8,2 

20 PRINT"util isez les touches tlechees 

30 WINDOW 39,39, 1,25:CURSQR 1 , 1 

40 LOCATE 1, 13 

50 IF INKEY(0)O-1 THEN PRINT CHR$(li)j 

60 IF INKEY(2)<>-1 THEN PRINT CHR$(10); 

70 LOCATE #1,3,24 

30 PRINTtti/'curseur texte " ; 

90 PRlNlttl , "position verticale = u ; 

100 PRINr#l,VPGS<#0):GQTO 50 

run 



(haut/bas) 



FONCTION : Indique, sur l'axe Vertical, la POSition du curseur de texte, a partir du 
bord superieur de la fenetre de texte. L'indicateur de canal doit obligatoirement figurer ; 
il ne prend pas la valeur # par defaut. 

Mots cles associes : POS, WINDOW 



WAIT 

WAIT < numero du port > , < masque > [, < inversion > ] 
WAIT &FF34, 20,25 

COMMANDE : Provoque une attente jusqu'a ce que le port d'entrees-sorties designe 
transmette une valeur comprise entre et 255 ; de telle sorte qu'apres avoir opere un XOR 
(OU exclusif) avec le < masque >, puis un AND (ET) avec le parametre d'< inversion >, 
on obtienne un resultat non nul. 

Le BASIC attend jusqu'a ce que la condition soit verifiee. 

Cette commande est a utiliser avec precaution. 

Mots cles associes : INP, OUT 

WEND 

WEND 

WEND 

COMMANDE : Indique la fin d'une section de programme executee a l'interieur d'une 
boucle WHILE. Le BASIC reconnait automatiquement la commande WHILE a laquelle 
WEND est associee. 

Mots cles associes : TIME, WHILE 

WHILE 

WHILE < expression logique> 

10 CLS :PR1NT "chrdnometre de 10 secandes" : t-TIME 

20 WHILE TIME<t+3000 

30 SOUND 1,0,100,15 

40 WEND:SOUND 129,40,30,15 

run 

COMMANDE : Repete une section de programme tant qu'une condition donnee est 
verifiee. Le mot cle WHILE indique le debut de la section a executer tandis que 1' < expres- 
sion logiquo definit la condition a verifier. 

Mots cles associes : TIME, WEND 



WIDTH 

WIDTH <nombre entier> 
WIDTH 40 

COMMANDE : Indique le nombre de caracteres par ligne lors d'une sortie sur impri- 
mante. Le BASIC se charge done d'envoyer automatiquement les retours chariot et les 
sauts de ligne necessaires durant l'impression. 

En l'absence d'une commande WIDTH, l'ordinateur adopte par defaut la valeur 132. 
La commande WIDTH 255 supprime tous les retours chariot et sauts de ligne supple- 
mentaires laissant a rimprimante le soin de generer elle-meme ces caracteres. Cependant, 
les retours chariot et sauts de ligne normaux dus a l'instruction PRINT continuent a etre 
envoyes a moins que la commande PRINT ne soit terminee par un « ; » ou une virgule. 

Mots cles associes : POS 



WINDOW 

WINDOW [ # <numero de canal >,]< gauche >,<droite>,<haut>,<bas> 

10 MODE 0:BORDER 0:REM cibie tv 

20 INK 0,0:INK 1, 25: INK 2,23:INK 3,21 

30 INK 4, 17: INK 5,6sINK 6,2sINK 7,26 

40 PAPER 0:CLS 

50 PAPER IsWINDOW 2,4,1, 18:CLS 

60 PAPER 2:WIND0W 5,7,1,18:CLS 

70 PAPER 3:WIND0W 8, 10, 1 , 18: CLS 

80 PAPER 4:WIND0W 1 1 , 13, 1 , 18: CLS 

90 PAPER 5:WIND0W 14, 16, 1 , 18: CLS 

100 PAPER 6:WIND0W 17, 19, 1 , 18: CLS 

110 PAPER 7:WIND0W 2, 19, 19, 25: CLS 

120 GOTO 120 

run 



COMMANDE : En mode texte, indique les dimensions d'un canal d'affichage a Tecran 
(on parle dans ce cas de fenetre). On veillera a ce que les valeurs des parametres 
< gauche >, <droite>, <haut> et <bas> correspondent bien aux coordonnees en 
vigueur dans le MQDE-ecran utilise. 

Le <numero de canal > prendra par defaut la valeur # 0. 

Pour plus de details concernant les fenetres, voir la deuxieme partie du chapitre intitule 
« A vos heures de loisir... ». 

Mots cles associes : WINDOW SWAP 



WINDOW SWAP 

WINDOW SWAP <numero de canal >,<numero de canal > 

10 MODE 1: INK 1 ,24: INK 2,9:INK 3,6 

20 WINDOW 21,40, 13, 25:PAPER 3 

30 WINDOW #1, 1 ,20, t , 12: PAPER #1,2 

40 CLS'.PRINT #1," Fenetre No H 

50 CLS #t:PRINT #1," Fenetre No 1" 

60 LOCATE 1,6 

70 PRINT" Fenetre Rouge (0)";SPC(2) 

80 LOCATE #1,1,6 

90 PRINT #1," Fenetre Verte ( 1 ) H 

100 FOR t = l* TO I000:NEXT 

110 WINDOW SWAP 0,1:GOTO 60 

run 



COMMANDE : Intervertit la premiere fenetre et la seconde. 

Les deux <numeros de canal > doivent obligatoirement figurer sans etre precedes, dans 
ce cas precis, de l'indicateur de canal #. 

Cette commande permet de diriger les messages BASIC sur un autre canal que celui par 
defaut § 0. 

Pour plus de details concernant les fenetres, voir la deuxieme partie du chapitre intitule 
« A vos heures de loisir... ». 

Mots cles associes : WINDOW 



WRITE 

WRITE [ # <numero de canal >,][< donnees a ecrire>] 

10 REM ecrit des donnees sur la disquette 

20 INPUT "donnez-mai un nombre";a 

30 INPUT "donnez-moi une chaine de caracteres" ; a* 

40 0PEN0UT "NOMFICH" 

50 WRITE #9,a,a$ 

60 CLOSEOUTiPRINT "Les donnees sont sauvees sur disquette" 

run 



COMMANDE : Affiche ou ecrit (WRITE) des donnees sur le canal indique. Deux arti- 
cles distincts doivent etre separes par une virgule et les chaines de caracteres sont placees 
entre guillemets. 



Dans notre exemple, les donnees entrees seront ecrites sur le canal # 9, c'est-a-dire enre- 
gistrees sur disquette. 

Pour retrouver les donnees, on utilisera le programme ci-dessous : 

10 REM retrouve ies dannees sur la disquette 

20 QPENIN "NOMFICH":INPUT #9,a,a$ 

30 CLQSEIN:PRINT"les 2 donnees sont:" 

40 PRINT:PRINT a, a* 

run 

Mots cles associes : INPUT, LINE INPUT 



XOR 

< argument > XOR < argument > 

IF "alain" < "bernard" XOR "chien" > "chat" THEN PRINT 
"vrai" ELSE PRINT "faux" 

IF "bernard" < "alain" XOR "chat" > "chien" THEN PRINT 

"vrai" ELSE PRINT "faux" 
faux 

IF "alain" < "bernard" XOR "chat" > "chien" THEN PRINT 

"vrai" ELSE PRINT "faux" 
vrai 

PRINT 1 AND 1 



PRINT AND 



PRINT 1 AND 

t 



OPERATEUR : Effectue bit a bit 1'operation booleenne XOR (OU exclusif) sur des 
entiers. Lorsque les bits des deux arguments ne sont pas identiques, le bit resultant vaut 
1. 

Pour plus de details concernant les operateurs logiques, voir la deuxieme partie du chapi- 
tre intitule « A vos heures de loisir... ». 

Mots cles associes : AND, OR, NOT 



XPOS 

XPOS 



10 MODE l:DRAW 320,200 

20 PRINTPOSition X du curseur graphi que*" ; 

30 PRINT XPOS 

run 



FONCTION : Indique, sur l'axe horizontal (X), la POSition du curseur graphique. 
Mots cles associes : MOVE, MOVER, ORIGIN, YPOS 

YPOS 

YPOS 

10 MODE lsDRAW 320,200 

20 PRINT"POSition Y du curseur graphi que*" ; 

30 PRINT YPOS 

run 

FONCTION : Indique, sur l'axe vertical (Y), la POSition du curseur graphique. 
Mots cles associes : MOVE, MOVER, ORIGIN, XPOS 

ZONE 

ZONE <nombre entier> 

10 CLS:F0R z = 2 TO 20 

20 ZONE z 

30 PRINT "X'V'X ZONE =";z:NEXT 

run 



COMMANDE : Modifie la largeur de la tabulation designee par la virgule dans la com- 
mande PRINT. La largeur des zones d'affichage ou d'impression, (de 13 caracteres par 
defaut), peut ainsi prendre une valeur entiere quelconque entre 1 et 255. 

Mots cles associes : PRINT 



Chapitre 4 

Utilisation des disquettes et des cassettes 

Partie 1 : Disquettes 



Ce chapitre traite de la fagon de gerer vos disquettes pour un usage quoti- 
dien et presente quelques-uns des utilitaires CP/M. 

Sujets abordes : 

* La duplication de la disquette systeme. 

* La preparation d'une disquette de travail. 

* L'utilisation d'une disquette pour un travail en BASIC uniquement. 

* Progiciel en AMSTRAD BASIC. 

* Progiciel sous CP/M. 

La partie 7 du Cours Elementaire montrait comment formater une disquette vierge desti- 
nee a la sauvegarde des programmes en BASIC des jeux, ou de CP/M. La partie 10 du 
Cours"Elementaire montrait comment faire des duplications fideles de disquettes a l'aide 
des utilitaires DISCCOPY (1 unite de disquettes) ou COPYDISC (2 unites de disquet- 
tes). Ce chapitre concerne la fagon de preparer une disquette destinee a recevoir des pro- 
grammes et des utilitaires de votre choix. 

La duplication de la Disquette Systeme 

II est tres important de faire une copie de la disquette systeme fournie avec votre ordina- 
teur et de garder l'original en lieu sur. II vous en couterait beaucoup pour la remplacer ! 

Rappelez-vous que cette disquette a deux faces, la face systeme et utilitaires et la face Dr. 
LOGO. Chaque disquette a en fait 2 faces que vous etes libre d'utiliser a votre guise. 

Rappelez-vous que si votre disquette est neuve, les utilitaires DISCCOPY et COPY- 
DISC vous la formateront avant de proceder a la duplication. 



Une disquette de travail SYSTEME/UTILIT AIRES 

S'il est tres important de faire une copie des 2 faces de la disquette systeme, vous constate- 
rez qu'il est egalement tres interessant de creer des disquettes de travail contenant seule- 
ment les utilitaires les plus demandes. Vous laisserez ainsi plus de place pour vos pro- 
grammes et aurez toujours la possibilite de copier un utilitaire occasionnel de la disquette 
systeme. Tous les utilitaires les plus employes seront a portee de votre clavier. 

Utilisez tout d'abord CP/M et l'utilitaire FO R M AT pour preparer une nouvelle disquette 
puis copiez-y les utilitaires dont vous avez besoin a l'aide du programme FILECOPY. 
Seule l'experience vous dira lesquels choisir. Dans cet exemple, nous prenons : 

AMSD0S.COM 

FILEC0PY.COM 

DISCC0PY.COM 

Utilisez votre copie de la disquette systeme pour charger CP/M. Lorsque le message A > 
apparait, tapez : 

FILECOPY FILEC0PY.COM 

...et suivez les instructions. (Le « SOURCE disc» est la disquette qui se trouve dans 
l'unite de disquettes et contient le programme que vous allez copier. Le « DESTINA- 
TION disc » est la nouvelle disquette sur laquelle le programme doit etre recopie). Reco- 
piez ensuite les 2 autres utilitaires : 

FILECOPY AMSD0S.COM 
FILECOPY DISCC0PY.COM 

Vous venez de constituer une disquette systeme de travail a votre mesure et pouvez main- 
tenant preparer la deuxieme face de cette disquette, ou les deux faces d'autres disquettes, 
a l'aide des utilitaires DISCCOPY ou COPYDISC. Attention cependant a respecter la 
reglementation concernant les copies (fin du manuel). 



Une disquette reservee au BASIC 

Les pistes et 1 de la disquette systeme sont reservees au CP/M et ne peuvent etre utili- 
sees. Si vous voulez le maximum de place disponible pour des jeux, des programmes ou 
des donnees en BASIC, sans JAMAIS utiliser ni CP/M, ni aucun de ses utilitaires avec 
cette disquette, vous pouvez la formater sans tenir compte de ces pistes. C'est alors une 
disquette de donnees. 



Elle doit etre formatee a Taide d'une option de l'utilitaire FORMAT. Tapez : 

FORMAT D 

Pour copier des programmes sur cette disquette, vous devez utiliser FILECOPY (apres 
l'avoir charge a partir de la disquette systeme) ou LOAD suivi de SAVE, sous BASIC. 
Avec un systeme a 2 unites de disquettes vous pourrez cependant vous servir de l'utilitaire 
PIPduCP/M. 

COPYDISC et DISCCOPY formateront votre nouvelle disquette selon roriginal. 



Progiciel en BASIC AMSTRAD 

Si vous achetez un programme d'application ecrit en BASIC AMSTRAD pour le 
CPC664, son execution commencera des la mise sous tension. II ne vous reste qu'a le reco- 
pier sur une disquette de travail. 



Le progiciel sur disquette 

Faites une copie de 1'original en utilisant COPYDISC ou DISCCOPY, rangez l'original 
et utilisez la copie. Suivez les instructions fournies pour Texecution du programme. Si 
vous avez besoin d'utilitaires, transferez-les de votre disquette systeme au moyen de 
FILECOPY. 



Progiciel en BASIC sur votre disquette travail 

Dans ce cas, recopiez les programmes du progiciel sur votre disquette existante. Tapez : 

FILECOPY t.t 

...et suivez les instructions. En particulier, repondez N a la question :. 

Ambiguous Hie name: Confirm individual files (Y/N) ? 

(Nom de fichier ambigu : Confirmation a chaque fichier (Y/N) ?) 

L'utilitaire FILECOPY vous indique le nom des fichiers copies. Vous pouvez maintenant 
lancer votre nouveau programme d'application a partir de votre disquette de travail mise 
a jour. 



Progiciel sous CP/M 

Le systeme Sexploitation CP/M vous donne acces a une immense librairie de logiciels, 
ecrits pour des micro-ordinateurs travaillant sous CP/M. La « logique » fondamentale de 
ces programmes etant deja definie, la seule chose qui vous reste a faire est de les transferer 
sur une disquette correcte de votre CPC664 et de les informer sur sa maniere particuliere 
de gerer Tecran. 

Un ensemble de programmes sur une disquette ayant pour objet une application specifi- 
que est appele un « progiciel ». Ces progiciels sont habituellement con^us pour etre utili- 
ses sur un bon nombre d*ordinateurs differents, ayant chacun leur taille d'ecran particu- 
liere et leur propre systeme de deplacement de curseur. Le progiciel pourra avoir ete defini 
pour le systeme AMSTRAD ou pour son adaptation sur des machines differentes en vous 
proposant un menu a cet effet. Dans les deux cas, suivez les instructions fournies avec le 
progiciel. S'il n'a pas ete prevu de variante pour le systeme AMSTRAD, le paragraphe 
« Configuration d'un programme CP/M », un peu plus loin, vous indiquera les comman- 
des de gestion d'ecran permettant d'adapter le progiciel au CPC664. Cette procedure 
s'effectue normalement en entrant au clavier des codes specifiques. Encore une fois, suivez 
les instructions fournies avec le progiciel. 

La disquette contenant le logiciel que vous avez achete doit etre utilisable par le systeme. 
La majorite des ordinateurs utilisant leur propre format, Pidentite de taille des disquettes 
ne signifie pas qu'elles soient compatibles. Demandez a votre fournisseur la version 3 
pouces d' AMSTRAD. 



Copie de travail de votre progiciel 

II est prudent de conserver l'original de votre progiciel et d'en faire une copie sur une 
autre disquette. 

Les instructions ci-dessous etant prevues pour un systeme standard a une seule unite de 
disquettes, nous vous recommandons de les suivre, meme si vous disposez d'un systeme 
a deux unites de disquettes (ignorez simplement la seconde). 

Formatez d'abord une nouvelle disquette, puis copiez-y tous les programmes de votre 
logiciel par l'utilitaire FILECOPY de votre disquette CP/M. Tapez : 

FILECOPY t.t 

...et suivez les instructions de l'ecran, repondant N a la question : 

Ambiguous filename : Con-firm individual Hies (Y/N) ? 



L'utilitaire FILECOPY vous donne les noms des fichiers copies. Quand FILECOPY a 
termine, vous disposez d'une copie de travail de votre progiciel. S'il a besoin d'utilitaires 
supplementaires, copiez-les de votre disquette systeme au moyen de FILECOPY. 

La configuration (Pun programme CP/M 

Le CPC664 possede une gamme etendue de codes de reference pour l'adaptation de pro- 
giciels sous CP/M. La plupart de ces progiciels ont besoin d'afficher et de lire des messages 
n'importe oii sur 1'ecran ainsi que de comprendre les/ommandes de gestion du curseur. 

Si votre logiciel a deja ete adapte pour le systeme AMSTRAD, ce qui suit ne vous 
concerne pas. 

Adaptation de votre progiciel : les sorties (Output) 

La procedure de mise en service d'un progiciel consiste a executer un programme special 
(sou vent appele IIMSTAL) qui vous pose un certain nombre de questions concernant les 
parametres de 1'ecran du CPC664. Inspirez-vous reponses du tableau ci-dessous (extrait 
du manuel de reference du BASIC AMSTRAD CPC664 SOFT 945) : 



Valeur Hexa 


Va 


&07 


7 


&08 


8 


&09 


9 


&0A 


10 


&0B 


11 


&0C 


12 


&0D 


13 


&10 


16 


&11 


17 



Valeur Decimate Operation effectuee 

Cloche 

Deplacement curseur - gauche 

Deplacement curseur - droite 

Deplacement curseur - bas 

Deplacement curseur - haut 

Effacement d'ecran et retour curseur en haut 

a gauche 

Retour chariot 

Effacement du caractere sous le curseur 

Effacement, dans la fenetre courante, du bord 

gauche jusqu'au curseur inclus 

612 18 Effacement, dans la fenetre courante, depuis 

le curseur (inclus) jusqu'au bord droit 

613 19 Effacement, dans la fenetre courante, depuis 

le debut de celle-ci jusqu'au curseur inclus 

614 20 Effacement, dans la fenetre courante, depuis 

le curseur (inclus) jusqu'a la fin de celle-ci 
&18 24 Basculement video normale/inverse (et vice- 

versa) 
&1E 30 Retour du curseur en haut a gauche 

&lF<c> <r> 31 <c> <r> Deplacement du curseur a la position donnee 

par <c> (colonne) 1 a 80 et <r> (rangee) 
1 a 25. 



Adaptation du progiciel : les entrees (Input) 

Les programmes du progiciel doivent avoir la possibility d'interroger le clavier. A l'excep- 
tion des deplacements curseur, la plupart des touches du clavier du CPC664 ont des 
valeurs standard. Bien qu'il soit preferable de faire en sorte que le progiciel accepte les 
valeurs standard par defaut, il est possible d'utiliser SETUP (voir la partie 2 du chapitre 
« AMSDOS et CP/M ») pour redefinir les codes donnes par le clavier. 

La colonne « Valeur TT » du tableau ci-dessous indique des valeurs type implementables 
par Tintermediaire de l'utilitaire SETUP pour un progiciel de traitement de texte (les 
codes de gestion du curseur devant etre employes a la fois pour les touches de gestion du 
curseur et pour une autre partie du clavier alors que le progiciel n'est capable de reconnai- 
tre qu'un seul code par operation, par exemple). 

La procedure de mise en service d'un progiciel consiste normalement en un certain nom- 
bre de questions demandant les parametres du clavier CPC664. Les reponses seront prises 
dans le tableau ci-dessous, extrait du manuel de reference du BASIC de TAMSTRAD 
CPC664 SOFT 945 : 



Nom de la 


Valeur 


Valeur 


N° de la touche pour 


Valeur TT 


touche 


Hexa 


Deeimale 


l'utilitaire SETUP 


Deeimale 


Curseur vers le haut 


&F0 


240 





5 


Curseur a droite 


&F3 


243 


1 


4 


Curseur vers le bas 


&F1 


241 


2 


24 


Curseur a gauche 


&F2 


242 


8 


19 


Effacement ecran 


&10 


16 


16 


7 


Retour Chariot 


&0D 


13 


18 


13 


Espace 


&20 


32 


47 


32 


Echappement 


&FC 


252 


66 


27 


Tabulation 


&09 


9 


68 


9 


Effacement caractere 


&7F 


127 


79 


127 



TT = Traitement de texte 

Demarrage d'un progiciel CP/M pret a l'emploi 

Normalement, vous n'avez qu'a entrer le nom du progiciel apres l'apparition du A>. 
Ainsi, pour lancer un programme de traitement de bulletins de paye appele SALAIRE. 
COM, tapez simplement : 

SALAIRE 



Demarrage automatique des progiciels CP/M prets a l'emploi 

Le systeme d'exploitation CP/M permet un demarrage automatique de n'importe quel 
programme chaque fois que Ton charge le CP/M. Cette fonction est reaiisee par Tune des 
options SETUP. (Voir la partie 2 du chapitre « AMSDOS et CP/M » pour de plus amples 
informations). 



Partie 2 : Les cassettes 



Lorsque vous connectez un lecteur de cassettes au systeme (voir la partie 2 du Cours Ele- 
mentaire), un certain nombre de commandes BASIC fonctionnent differemment apres 
Pentree de la commande | TAPE. Cette instruction configure Pordinateur pour une utili- 
sation avec cassettes et les messages apparaissant a Pecran sont alors differents de ceux 
vus lors de Pexploitation des disquettes. 

Contrairement aux noms de fichiers sur disquettes, les noms de fichiers sur cassettes 
n'obeissent pas a des regies tres strictes quant a leur forme. lis peuvent comporter jusqu'a 
16 caracteres incluant des espaces et des signes de ponctuation, ou peuvent meme etre 
omis. 

La liste ci-apres decrit les DIFFERENCES de fonctionnement de ces commandes 
BASIC. Les commandes elles-memes sont decrites dans le chapitre « Liste complete des 
mots cles du BASIC AMSTRAD CPC664 ». 



CAT 

Le message ci-dessous apparait : 

Press PLAY Then any keys 

Vous devez alors appuyer sur le bouton PLAY de votre lecteur de cassettes puis sur Pune 
des touches grises de votre ordinateur. La cassette commence a se derouler et Pordinateur 
affiche les noms de fichiers lus en sequence. 

Chacun des blocs constituant un fichier va s'afficher, suivi d'un caractere definissant son 
type: 

$ fichier BASIC standard 

% fichier BASIC protege 

* fichier ASCII 

& fichier binaire 



L'ordinateur affiche : 

Ok 

...a la fin de la ligne si la lecture du fichier a abouti, indiquant qu'un chargement du fichier 
aurait ete effectue avec succes si la commande adequate avait ete lancee. 

La fonction CAT n'agit pas sur le programme en cours stocke dans la memoire. 

Si un fichier sur cassette est sauvegarde sans specification de nom, CAT Faffiche comme : 

Unnamed file 

Pour arreter CAT, appuyez sur la touche [ESC]. 

Erreurs de lecture 

Si le message ci-dessus indiquant la lecture du fichier n'apparait pas, ou si vous obtenez : 
Read error a 

... ou 

Read error b 
Cela signifie que : 

1 . Votre lecteur de cassettes n'est pas correctement connecte a la prise TAPE de l'ordina- 
teur (voir alors la partie 2 du Cours Elementaire). 

2. Les commandes VOLUME ou LEVEL de votre lecteur de cassette ne sont pas bien 

reglees. 

3. La cassette est de mauvaise qualite ou usagee. 

4. La cassette a ete soumise a un champ magnetique provenant d'un haut-parleur, d'un 
televiseur, ou d'une autre source. 

5. Le type de votre cassette ne convient pas aux systemes informatiques AMSTRAD. 
Vous pouvez utiliser tous les logiciels ecrits pour le CPC664 et une grande partie de ceux 
du CPC464. 



CHAIN 

CHAIN MERGE 
LOAD 
MERGE 
RUN 

Vous n'avez pas a specifier de nom de fichier si vous desirez charger le premier fichier de 
la cassette. Exemples de commandes : 

CHAIN 

CHAIN "%100 

CHAIN MERGE H " 

CHAIN MERGE "%100 

CHAIN MERGE " M , 100, DELETE 30-70 

LOAD "" 

LOAD "\41F4B 

MERGE M " 



run "» (En maintenant la touche [CTRL] et en appuyant sur la petite touche 
[ENTER] du clavier numerique, vous executez cette commande. S'em- 
ploie avec les logiciels sur cassette apres Tentree de | TAPE). 

Le BASIC vous repond : 

Press PLAY then any key: 

Vous devez alors appuyer sur le bouton PLAY de votre lecteur de cassette puis sur Tune 
des touches grises de 1'ordinateur. La cassette commence a se derouler et l'ordinateur 
charge le ficher a trailer. 

Les messages de chargement apparaissent a Pecran : 

Loading NOMFICH block 1 

...accompagnes d'autant de numeros de blocs qu'en contient le ficher. 

Si le nom de fichier commence par !, les messages ci-dessus sont supprimes et vous n'avez 
pas a actionner de touche pour charger le fichier (assurez-vous toutefois que le bouton 
PLAY de votre lecteur de cassette est bien enfonce). Si vos programmes font appel au 
point d'exclamation ! et doivent aussi tourner sur disquette, le ! est ignore lors de 
Sexploitation sur disquette). Le ! n'occupe pas un caractere dans les noms de fichiers sur 
cassette ou disquette. 



A l'abandon de cette commande par la touche [ESC], le message d'erreur ci-dessous 
s'affiche : 

Broken in 

Si le chargement du fichier n'a pas abouti, reportez-vous au paragraphe « Erreurs de lec- 
ture ». 



ATTENTION : L'interface interne de la disquette occupe une petite partie de la 
memoire qui dans certains cas est exploitee par les programmeurs professionnels de 
logiciels sur cassette destines au CPC464. Ces cassettes ne fonctionnent pas correc- 
tement sur le systeme CPC664 + lecteur de cassettes. 



EOF 

POS (# 9) 

Ces fonctions operent de maniere identique sur disquette et sur cassette. 



INPUT # 9 
LINE INPUT # 9 
OPENIN et CLOSEIN 

Vous n'avez pas a specifier de nom de fichier pour charger le premier fichier sur cassette. 
Exemple de commande : 

DPENIN "" 

Vous obtenez le message : 

Press PLAY then any key: 

Vous devez alors appuyer sur le bouton PLAY de votre lecteur de cassettes puis sur Tune 
des touches grises de Tordinateur. La bande commence a se derouler et 1'ordinateur 
charge les 2 premiers Koctets du fichier dans la zone memoire appelee « tampon de 
fichiers ». Les informations sont entrees jusqu'a ce que le tampon soit vide. L'ordinateur 
envoie alors a nouveau un message : 

Press PLAY then any key: 
...puis charge les 2 Koctets suivants. 



Les messages de chargement s'affichent : 
Loading NOMFICH block 1 

...ainsi que les autres numeros de bloc, au fur et a mesure du chargement. 

Si le premier caractere du nom de fichier dans la commande OPEN IN est un point 
d'exclamation (!), les messages ci-dessus sont supprimes ; vous n'avez a appuyer sur 
aucune touche pour charger le fichier. (Vous devez alors vous assurer que le bouton 
PLAY de votre lecteur de cassette est bien enfonce). Si vos programmes font appel au 
signe ! et doivent egalement fonctionner sur disquette, le ! est ignore lors de l'exploitation 
de la disquette (au cours de la lecture du nom de fichier sur disquette). Le ! n'occupe pas 
de caractere dans les noms de fichiers sur disquette ou cassette. 

Lorsque vous interrompez Tentree du fichier a I'aide de la touche [ESC], le message sui- 
vant s'affiche : 

Broken in 

Si le chargement du fichier n'a pas abouti, consultez le paragraphe anterieur « Erreurs de 
lecture ». 



LIST § 9 

OPENOUT et CLOSEOUT 

PRINT # 9 

WRITE # 9 

Si vous desirez sauvegarder un fichier sans nom, vous n'avez pas a en specifier le nom. 
Exemple de commande : 

OPENOUT u " 

Les premiers 2 Koctets du fichier a sauvegarder vont s'inscrire dans la partie de la 
memoire appelee « tampon de fichiers ». Lorsque ce tampon est plein, le message ci- 
dessous apparait : 

Press REC and PLAY then any key: 

Vous devez alors appuyer sur les boutons RECORD et PLAY de votre lecteur de casset- 
tes puis sur Tune des touches grises de l'ordinateur. La bande se deroule et l'ordinateur 
sauvegarde le contenu du tampon. L'ordinateur remplit ensuite a nouveau le tampon, 
avec les 2 Ko suivants puis envoie le message : 

Press REC and PLAY then any key: 
Les 2 Ko suivants sont alors sauvegardes sur la cassette. 



Si le tampon est partiellement plein et que la commande CLOSEOUT intervient, l'ordi- 
nateur sauvegarde sur la cassette ce qui reste dans le tampon, affichant le message : 

Press REC and PLAY then any key: 

Le message de sauvegarde s'affiche : 

Saving NOMFICH block <x> 

Si le nom de fichier de la commande OPENOUT commence par !, les messages ci-dessous 
n'apparaissent pas et vous n'avez a appuyer sur aucune touche pour sauvegarder le 
fichier. (Vous devez alors vous assurer que les boutons RECORD et PLAY de votre lec- 
teur sont bien enfonces). Si vos programmes font appel a ! et doivent aussi etre exploites 
sur disquette, le ! est ignore lors de l'exploitation de la disquette (pendant la lecture du 
nom de fichier sur disquette). Le ! n'occupe pas de caractere dans les noms de fichiers sur 
disquette ou cassette. 

Lorsque vous interrompez la sortie des fichiers en appuyant sur [ESC], le message d'er- 
reur ci-dessous apparait : 

Broken in 



Pour reussir une sauvegarde... 

1 . Verifiez que votre lecteur de cassettes est bien connecte a la prise TAPE de l'ordinateur 
(voir la partie 2 du Cours elementaire). 

2. Verifiez que les commandes RECORD et LEVEL de votre lecteur sont correctement 
reglees. 

3. Verifiez que vos cassettes ne sont pas de mauvaise qualite ou de 120 mn (CI 20). II est 
preferable d'utiliser des cassettes AMSOFT CI 5. 

4. N'exposez vos cassettes a aucun champ magnetique : haut-parleurs, televiseur, etc... 

5. Avant de detruire un programme de la memoire apres sauvegarde, assurez-vous, par 
la commande CATalog, que la sauvegarde a effectivement abouti. 

6. Veiiiez a 1'entretien regulier de votre lecteur de cassettes et a la proprete des tetes de 
lecture. 



SAVE 

Si vous desirez sauvegarder un programme comme fichier sans nom, vous n'avez pas a 
specifier de nom de fichier. Exemple de commande : 

SAVE '*" 

Le message ci-dessous s'affiche : 

Press REC and PLAY then any key; 

Vous devez alors appuyer sur les boutons RECORD et PLAY de votre lecteur de casset- 
tes puis sur l'une des touches grises de votre ordinateur. La bande se deroule et l'ordina- 
teur sauvegarde le programme. 

Les messages de sauvegarde apparaissent : 
Saving NOMFICH block 1 

...accompagnes d'autant de numeros de blocs que le fichier en contient, jusqu'a la fin de 
la sauvegarde. 

Si le nom de fichier commence par !, les messages ci-dessus n'apparaissent pas et vous 
n'avez a appuyer sur aucune touche pour sauvegarder le fichier. (Vous devez alors vous 
assurer que les boutons RECORD et PLAY de votre lecteur sont bien enfonces). Si vos 
programmes font appel a ! et doivent aussi etre exploites sur disquette, le ! est ignore lors 
de Texploitation de la disquette (pendant la lecture du nom de fichier sur disquette). Le ! 
n'occupe pas de caractere dans les noms de fichiers sur disquette ou cassette. 

Lorsque vous interrompez cette commande a Faide de la touche [ESC], le message d'er- 
reur ci-dessous s'affiche : 

Broken in 
Reportez-vous au paragraphe « Pour reussir une sauvegarde » plus haut dans ce chapitre. 

SPEED WRITE 

Cette commande ne fonctionne que sur cassette et peut etre exploitee lorsque Tordinateur 
fonctionne sur disquette. 

Messages d'erreur 

Les messages d'erreur 7, 21, 24, 25, 27 et 32 (voir chapitre « Pour information^ 
s'affichent, le cas echeant, lors du fonctionnement sur cassette. 



Commandes externes de TAMSDOS 



Les commandes ci-dessous permettent d'acheminer les entrees/sorties vers la disquette ou 
la cassette : 

| TAPE (pouvant se subdiviser en | TAPE. IN et | TAPE OUT) 
| DISC (pouvant se subdiviser en | DISC. IN et | DISC. OUT) 

Toutes les commandes externes : 

A 

B 

CPM 

DIR 

DRIVE 

ERA 

REN 

USER 

...sont exploitees sur disquette meme si le fonctionnement sur cassette a ete selectionne. 



Chapitre 5 

Les elements de V AMSDOS et du CP/M 



Partie 1 : AMSDOS 

Sujets abordes : 

* Introduction a AMSDOS 

* Le catalogue de la disquette 

* Changement des disquettes 

* Les en-tetes des fichiers AMSDOS 

* Lesjockers 

* Un exemple de programme constitue de commandes AMSDOS 

* Guide de reference des commandes d' AMSDOS 

* Manipulation de fichiers 

* Guide de reference des messages d'erreur 

Introduction 

AMSDOS est une extension du BASIC AMSTRAD de votre ordinateur, ajoutant des 
commandes externes supplementaires et redefinissant certaines instructions existantes. 
Les nouvelles commandes externes sont identifiees par le symbole | (barre). 

AMSDOS permet a Tutilisateur de changer librement de disquette (a condition toutefois 
qu'il n'y ait pas de fichiers ouverts en ecriture, auquel cas un message d'erreur apparait). 

Le catalogue de la disquette 

Chaque disquette est divisee en 2 parties, une pour le catalogue et une pour les donnees. 
Le catalogue est la liste des noms de fichiers que contient la disquette, accompagnee d'un 
'plan' de leur positionnement sur la disquette. AMSDOS et CP/M peuvent calculer la 
taille de chaque fichier apres consultation de cette position dans le catalogue. Le calcul 
de Tespace disponible se fait par l'addition des fichiers existants puis la soustraction du 
resultat de Tespace disponible du total. 

Chaque fois qu'un fichier est lu, il y a d'abord examen de sa position dans le catalogue, 
determinant son emplacement sur la disquette. Lorsqu'un nouveau fichier est cree, un 
espace vacant lui est attribue. Une fois efface, cet espace est libere. Le catalogue compta- 
bilise par unite de IK (un kilo-octet) et peut contenir jusqu'a 64 positions differentes. Les 
longs fichiers sont dotes d'une position pour chaque groupe de 16K utilise, cette 
manoeuvre n'apparaissant normalement pas a Futilisateur. 



Changement des disquettcs 

AMSDOS vous permet de remplacer ou de retirer une disquette a tout moment, en 
dehors des temps d'acces et si aucun fichier n'est ouvert sur l'unite concernee. Contraire- 
ment a CP/M, AMSDOS autorise cette operation sans procedure d'entree dans la dis- 
quette. 

Remplacer une disquette en cours d'ecriture risque d'endommager les donnees qu'elle 
contient. Lorsque vous remplacez une disquette contenant des fichiers ouverts, ceux-ci 
sont « abandonnes » des qu'AMSDOS detecte le remplacement et un message d'erreur 
s'affiche. Toutes les donnees a venir sont alors perdues et la derniere position dans le cata- 
logue ne s'inscrit pas sur la disquette. AMSDOS ne detecte le remplacement qu'en lisant 
le catalogue, c'est-a-dire tous les 16K du fichier (ou lors de toute ouv^rture ou fermeture 
d'un fichier). Vous risquez ainsi de perdre 16K de donnees lorsque vous remplacez une 
disquette contenant des fichiers ouverts. 

Noms et genres des fichiers AMSDOS 

II est d'usage d'ajouter une extension aux noms des fichiers disques. Cette extension, sim- 
ple convention indiquant le type du fichier, ne joue aucun role precis. Certains program- 
mes n'acceptent toutefois un fichier que suivi d'une extension particuliere. Le BASIC 
admet n'importe quel type de nom mais cherche de preference les fichiers d'un certain 
type, sauf specification particuliere. (Voir « Les en-tetes AMSDOS »). 

Construction des noms de fichiers 

Le nom est constitue de deux parties separees par un point, la premiere partie de 8 lettres 
maximum et la seconde, de 3. Ainsi, « ROINTIME.DEM », « EX1 BAS » et « FOR- 
MAT. COM » sont des noms de fichiers corrects. 

La deuxieme partie represente Findicateur de type. Les noms de fichiers et leurs indica- 
teurs peuvent etre composes d'un melange de lettres et de nombres mais ne peuvent conte- 
nir aucun espace blanc. Les indicateurs de type les plus communs sont : 

.<espace> Type non specifie. Peut etre un fichier de donnees cree par Finstruction 
OPENOUT « <nomfich> » (nom de fichier) ou un programme BASIC sau- 
vegarde en utilisant une commande AMSDOS du style SAVE 
« <nomfich> »,A. 

.BAS Programme BASIC sauvegarde a l'aide de commandes AMSDOS du style 
SAVE « <nomfich> »,P ou SAVE « <nomfich>.BAS »,A. 

.BIN Programme ou zone de memoire sauvegardee par une commande AMSDOS 

du style SAVE « <nomfich> »,B (<parametres binaires>). 

. B AK Ancienne version d'un fichier sauvegardee lors de la configuration d'une nou- 
velle version par AMSDOS ou un utilitaire. L'utilisateur est ainsi a meme de 
reutiliser Fancienne version (BAcK-up) si besoin est. 

.COM C'est une commande. Tous les utilitaires du CP/M ont cette extension. 



Les en-tetes AMSDOS 

AMSDOS dote automatiquement chaque fichier d'un indicateur de type. Si les indica- 
teurs (par defaut) ne vous satisfont pas, vous avez la possibility d'en specifier un a votre 
convenance. L'indicateur de type peut correspondre pour le systeme a un certain en-tete. 
Les programmes BASIC AMSDOS, les programmes compiles et les fichiers binaires sont 
sauvegardes sur disquette avec un en-tete (le meme que sur une cassette) permettant a la 
commande AMSDOS : 

LOAD « <nomfich> » 

...de les reconnaitre et d'agir en consequence. Si LOAD ne trouve pas d'en-tete, il consi- 
dere avoir affaire a un fichier en codes ASCII. 

Lors du chargement d'un fichier depourvu d'indicateur de type, la commande LOAD 
AMSDOS, independamment du contenu de l'en-tete, cherche d'abord ce fichier sous le 
type: 

.<espace> 

...puis, si elle ne trouve rien : 

BAS 
...et enfin : 

BIN 

L'utilisateur a ainsi le loisir d'abreger ses noms de fichiers en omettant, le plus souvent, 

de specifier le type. 

Un fichier de donnees sur disquette rempli apres ouverture a l'aide de la commande 
OPENOUT, n'aura pas d'en-tete, et son contenu, venu des commandes BASIC WRITE, 
PRINT, LIST, sera constitue de codes ASCII. En 1'absence d'indicateur, la commande 
OPEN IN cherchera un fichier de ce type. 



Noms de fichiers avec deux drives 

Dans le cas d'un systeme a deux unites de diquettes, une FD-1 etant connectee a l'ordina- 
teur, les fichiers peuvent se trouver sur Tune ou Tautre des deux unites. L'ordinateur n'al- 
lant pas chercher sur les deux, vous devrez specifier l'unite concernee. Pour cela, vous 
disposez soit de | A, soit de | B, soit encore de | DRIVE suivi d'un nom de fichier normal. 
Vous pouvez supplanter le choix de l'unite par defaut en adjoignant un prefixe (A: ou B:) 
au nom. 
Ainsi : 



Ainsi : 



SAVE "PROS-BAS" 
!A 



...et ; 



!A 

SAVE "B:PROG.BAS M 

...sauvegardent le programme sur l'unite B. 

De meme, vous pouvez supplanter l'affectation USER par defaut en specifiant un 
numero d'utilisateur, compris entre et 15, qui servira de prefixe au nom de fichier. Ainsi, 
les commandes : 

LOAD "15:PR0G.BAS" 

...et : 

SAVE M5:PR0G.BAS M 

...chargent et sauvegardent le programme sur la section de la disquette afTectee a l'utilisa- 
teur 15, quel que soit le numero par defaut (voir commande | USER, dans la suite du 
manuel). 

Enfin, il est possible de supplanter a la fois la valeur par defaut de 1'utilisateur (USER) 
et celle de l'unite (DRIVE) (dans cet ordre) en les indiquant dans le prefixe du nom de 

fichier, comme par exemple : 

RUN "15B:PRQG.BAS" 



Les jockers 

On a souvent besoin d'operer (catalogue, copie, effacement, etc..) sur plusieurs fichiers a 
la fois. Lorsqu'un nom de fichier est specifie pour telle ou telle operation, le systeme 
recherche le nom donne dans le catalogue. II est possible dans certains cas de demander 
a ce que l'operation soit effectuee sur plusieurs fichiers ayant des lettres communes, les 
autres lettres etant alors remplacees par des ? (signifiant 'ne pas tenir compte de'). On 
peut abreger une serie de ? en la remplacant par le symbole *. Ainsi, FRED.* est le rac- 
courci de FRED.??? et F*.BAS celui de F???????.BAS. 

Dans cet esprit, *.* signifie 'n'importe quel fichier'. 



Exemples : 







Convient a 


Convient a 


Catalogue 


Convient a *.BAS 


FRED7.BAS 


F*.BAS 


BERT.BAS 


BERT.BAS 






FRED1.BAS 


FRED1.BAS 


FRED1.BAS 


FRED1.BAS 


FRED2.BAS 


FRED2.BAS 


FRED.BAS 


FRED2.BAS 


FRED3.BAK 






FRED3.BAK 


FRED3.BAS 


FRED3.BAS 


FRED3.BAS 


FRED3.BAS 


FINAL.BAS 


FINAL.BAS 




FINAL.BAS 



Exemples d'utilisation de commandes d'AMSDOS dans un programme 

Pour vous aider a bien comprendre les commandes d'AMSDOS, nous vous conseillons 
de bien regarder ces exemples et meme de revenir sur certaines parties au moment ou 
nous nous y refererons dans la suite du chapitre. Ne faites pas fonctionner ces program- 
mes avec l'original de votre disquette systeme CP/M. Utilisez une disquette de travail ou 
une copie sur lesquelles ils pourront ecrire en toute securite. 



Sauvegarde de variables et recopie d'ecran 

Les indicateurs .DAT et .SRN n'ont d'autre role que de nous rappeler ce que contient le 
fichier. Le fichier PARAM.DAT contient des parametres codes en ASCII, done sans en- 
tete, alors que FILENAME. SRN est un fichier AMSDOS en code binaire, avec en-tete. 
Ces deux programmes se trouvent en format ASCII dans le programme EX1 .BAS de la 
disquette systeme. 

Le premier exemple (EX1 .BAS) dessine le drapeau anglais et sauvegarde le contenu de 

Tecran sur disquette. 

Vous remarquerez que le programme essaie d'abord de lire le fichier PARAM.DAT afin 
de s'assurer qu'il existe avant d'y inscrire des donnees. S'il n'existe pas, le BASIC signale 
une erreur qui est capturee par le programme et l'execution se deroule sans interruption. 
S'il existe, le programme vous propose d'ecraser le fichier existant. 

Pour lancer le programme, tapez : 

RUN "EXi" 



Comme nous Taverns dit, AMSDOS va se mettre a la recherche du fichier en lui adjoi- 
gnant le type .BAS. Les particularites de l'ecran que Ton va copier, (son mode, la palette 
de couleurs et le nom du fichier contenant les donnees) sont copies sur un fichier. Voici 
qui illustre ('utilisation d'un fichier de donnees pour la sauvegarde WRITE des variables 
dans un programme (dumpf ile$) et de constantes (1), pour reutilisation dans un autre 
programme. 

10 dumpHle$ s "f lagdumpiSrn" 
20 MODE liBORDER 
30 DIM colour(2) 
40 FOR i*B TO 2 

50 READ colour(i): REM charge les No de couleurs en <DATA> 
60 INK i ,colour (i ) 
70 NEXT 

B0 ON ERROR GOTO 430 

90 0PEN1N "paraflwdat" > teste si le fichier exist© 
100 CLOSEiNsON ERROR GOTO 

110 IF errnuo* = 32 AND DERR = 146 THEN CLS:G0T0 160 ' le fichier 
n ? exi ste pas 
120 CURSOR 1 : PRINT "Do you want to overwrite old file? Y/N " 

130 a$=lNKEY$:0N INSTRC" YN'\ UPPER* <a$> > GOTO 130,150,140:60 

TO 130 

140 PRINT a*:PRINT "Program abandoned" : END 

150 PRINT a$:CURS0R 

160 0PEN0UT "parafli.dat" 

170 WRITE #9, dumpf i le*, 1: REM sauvegarde le nom du fichier e 

t son mode 

180 FOR i=0 TO 2 

190 WRITE #9, colour (i ) i REM sauvegarde les couleurs 

200 NEXT i 

210 CL0SE0UT 

? '? ft pi ** 

230 gp=l:BRAPHICS PEN gp:w=125 

240 x=-65:a=240:y-4B0:b*-150;GGSUB 400 

250 y=0:b=150:GOSUB 400 

260 x=575:a = -240:yMB0:b = -150:GGSUB 400 

270 v-0:b-150:GQSUB 400 

280 qp=2:GRAPHICS PEN gp:w=40 

290 a=24B:x*-4B:y=4flfl:b*-i5B:60SUB 400 

300 x=0:y-=0:b-130:GOSUB 400 

310 a*-240:x*64B:v=0!b*15fil:BQSUfci 

320 x=600:y=400:b*~150:GGSUB 400 

330 ORIGIN 0,0, 256, 380,0, 400: CLG i 

340 ORIGIN 0,0,0,640, 150, 25B:CLG 1 



350 ORIGIN 0,8, 280, 352, 0,400iCLG 2 

360 ORIGIN 0,0,0,640, 168,230:CLG 2 

370 SAVE dumpf ile$,b,&C000,S<4000 

380 DATA 2,26,6 

390 END 

400 MOVE x,y:DRAWR a,b:DRAWR w,0:DRAWR -a,-b 

410 MOVE x+a/2+w/2,y+b/2:FILL gp 

420 RETURN 

430 errnum=ERR:RESUME NEXT 
run 

Le deuxieme exemple (EX2.BAS) est le programme type de restitution d'une copie 
d'ecran faisant appel au fichier des parametres pour definir son action. Vous remarquerez 
la fagon d'appeler (INPUT) les variables se trouvant dans un fichier avec variation auto- 
matique de longueur de fichier par la fonction EOF (End Of File = Fin de fichier). II est 
important de sauvegarder les parametres de l'ecran, pour eliminer tout risque de brouil- 
lage des resultats. La commande MODE et le blocage du defilement continu de l'image 
accomplissent cette sauvegarde. 

10 DIM co!our(15): REM provision for 16 colours 

20 OPENIN "param.dat" 

30 INPUT #9, i i lename$, screenmode 

40 i=0 

50 WHILE NOT EOF 

60 INPUT #9,colour(i) 

70 INK i,colaur(i) 

80 i=i+l 

90 WEND 

100 CLOSEIN 

110 MODE screenmodeiBORDER 

120 LOAD filename* 

run 

Sommaire des commandes externes d'AMSDOS 

|A 

:a 

COMMANDE : Dirige les entrees/sorties vers Funite A. Equivalent a | DRIVE avec A 
pour parametre. (L'unite integree est Tunite A.) 



IB 

IB 

COMMANDE : Dirige les entrees/sorties vers l'unite B. Equivaut a | DRIVE avec B pour 
parametre. (L'unite integree est l'unite A.) 

|CPM 

| CPM 

COMMANDE : Charge et initialise le systeme d'exploitation (CP/M 2.2) contenu dans 
la disquette systeme. 

Cette operation echoue si l'unite ne contient pas de disquette systeme. 



JD1R 

I DIR [,<chaine alphanumeriquo] 

:dir."».bas" 



COMMANDE : Affiche le catalogue de la disquette (facon CP/M) et l'espace disponible. 
L'absence de la chaine equivaut a *.*. 



| DISC 

| DISC 

COMMANDE : Equivaut aux commandes | DISC. IN et | DISC.OUT reunies. 

| DISC.IN 

| DISC.IN 

COMMANDE : Force la lecture des donnees de la disquette. 

| DISCOUT 

| DISC.OUT 

COMMANDE : Force l'ecriture sur la disquette. 



I DRIVE 

| DRIVE, < chaine alphanumeriquo 

iDRIVE,"A n 

COMM ANDE : Designe une des unites. Cette commande avorte si AMSDOS est incapa- 
ble de lire la disquette dans Tunite designee. 

| ERA 

| ERA, < chaine alphanumeriquo 

!ERA,"*„BAK M 

COMMANDE : Efface tous les fichiers qui correspondent a ce nom de fichier et ne sont 
pas en Ecriture seulement. Les jockers sont permis. 

| REN 

I R EN, < chaine alphanumeriquo, < chaine alphanumeriquo 

:ren, ,, nouveau.bas%"ancien.bas" 

COMMANDE : Donne un nouveau nom de fichier. II ne doit pas exister de fichier por- 
tant deja ce nom. Les jockers ne sont pas autorises. 

Le parametre USER (voir | USER) peut etre specifie dans la < chaine alphanumeriquo 
pour supplanter toutes les valeurs par defaut. Ainsi, la commande | REN,« 0: NOU- 
VEAU. BAS »,« 15:ANCIEN.BAS » rebaptise le fichier de l'utilisateur 15, 
« ANCIEN.BAS ». et l'appelle « NOUVEAU. BAS » en 1'affectant a Tutilisateur 0, 
sans tenir compte des valeurs par defaut ou definies precedemment. 

| TAPE 

[TAPE 

COMMANDE : Equivaut aux commandes | TAPE. IN et | TAPE. OUT reunies. Utilisee 
dans le cas ou un lecteur de cassettes est raccorde a l'ordinateur. 



I TAPE.IN 
| TAPE.IN 

COMMANDE : Lit des donnees sur un lecteur de cassettes connecte a Tordinateur. 

| TAPE.OUT 

| TAPE.OUT 

COMMANDE : Envoie des donnees vers un lecteur de cassettes connecte a Tordinateur. 

| USER 

| USER,<nombre entier> 

[USER, 3 

COMMANDE : Determine la section du catalogue (comprise entre et 1 5) sur laquelle 
vont s'effectuer les acces disque. 

Un fichier peut etre transfere d'un numero d'utilisateur a Fautre, a l'aide d'un | REN. 
Ainsi, | REN f « 15:EXEMPLE.BAS »,« 0:EXEMPLE.BAS » transfere un fichier de 
Putilisateur a Tutilisateur 15, sans modifier le nom du fichier (EXEMPLE.BAS) 



Copies de fichiers 

Fichiers AMSDOS a en-tete 

II est possible de copier ces fichiers sous CP/M, en utilisant PIP ou FILECOPY (voir ce 
chapitre, partie 2). N'importe quel fichier cree sous AMSDOS comporte une zone d'en- 
tete (voir « Les en-tetes d'AMSDOS ») et peut etre copie integralement, de disquette a 
disquette et de cassette a disquette - toutefois, son contenu est en general incomprehensi- 
ble par CP/M. 



Fichiers ASCII 

Les fichiers crees sous AMSDOS sans zone d'en-tete sont generalement ecrits en codes 
ASCII et sont compris par AMSDOS et CP/M. lis peuvent done s'echanger librement 
entre AMSDOS et CP/M. 

Fichiers en lecture seulement 

CP/M permet de limiter l'acces a un fichier en lecture seulement, qu'il soit ou non sur le 
catalogue. De tels attributs sont accordes et supprimes par CP/M tout en etant respectes 
par AMSDOS. Pour plus de details, voir la partie 2 du chapitre concernant CP/M. 



Les procedures de copie de fichiers 

Les tableaux qui suivent montrent la fa^on de copier n'importe quel fichier entre disquet- 
tes et cassettes (le cas echeant). lis sont destines a un systeme a une seule unite. II est 
absolument impossible de copier un programme BASIC protege ou un fichier binaire (un 
jeu ecrit en langage machine, par exemple) si les adresses de chargement sont inconnues. 
Vous trouverez plus de details sur FILECOPY, CLOAD et CSAVE a la partie 2 de ce 
chapitre, qui traite egalement de Tutilitaire PIP du CP/M. La copie d'un fichier d'une 
disquette a r autre sur un systeme a deux unites est normalement simplifiee par Putilitaire 
PIP du CP/M (voir chapitre CP/M). 

Voir les tableaux de la page suivante. 



CQPIE SUR 



BASIC AMSTRAD 
sur cassette I 



COPIE D£ i 

Donnees ASCII 
sur cassettel 



Bi nai re 

sur cassettel 



BASIC AMSTRAD 



Binaire 

sur cassette! 



ASCII 

sur cassette* 



BASIC AMSTRAD 
sur 
disquette 

ASCII 

sur disquette 

Bi nai re 

sur 
disquette t 



ITAPE 

LOAD "FICHIER" 
<changer cassette) 
SAVE "FICHIER" 
! DISC 



ITAPE 
LOAD 
< c h a n 
SAVE 
! DISC 



H=HIMEM 
{ TAPE 

MEMORY <d>-l 
LOAD "FICHIER" 
(changer cassette) 
SAVE "FICHIER", 6, 
< d > , < 1 > , C , r ] 
! DISC 
MEMORY H 
<note 2> 



"FICHIER" 
ger cassette) 
"FICHIER", A 



TAPE 
LOAD 
! DISC 
SAVE 



ITAPE 

LOAD "FICHIER 1 

{DISC 



"FICHIER" 
"FICHIER" 



!CPM 

CLOAD "FICHIER", TEMP 

(changer cassette) 

CSAVE TEMP, "FICHIER" 

ERA TEMP 

AMSDOS 

< n o t e I > 



!CPM 

CLOAD "FICHIER 1 

AMSDOS 



H=HIMEM 

ITAPE 

MEMORY <d>-l 

LOAD "FICHIER" 

IDISC 

SAVE "FICHIER", B, 

< d > , < 1 > , C , < r > 3 

MEMORY H 

<note 2) 



COPIE SUR 



COPIE DE : 
BASIC Donnees Binaire Autres 
AMSTRAD sur ASCII sur AMSDOS sur 

disquette* disquette sur disquette* disquette 



BASIC AMSTRAD 
sur cassette* 



Binaire 

sur cassette) 



LOAD "FICHIER" 

ITAPE 

SAVE "FICHIER" 

IDISC 



ASCII 

sur cassette! 



BASIC AMSTRAD 
sur 
disquette 



ASCII 

sur disquette 



AMSDOS 

Binaire * 



Autres sur 
di squette 



H=HIMfcM 

MEMORY <d>-l 

LOAD "FICHIER" 

!TAPE 

SAVE "FICHIER", B, 

< d > , < 1 > , C , r ] 
ID1SC 
MEMORY H 

< n o t e 2 > 



ICPM 

CSAVE FICHIER 

AMSDOS 



LOAD "FICHIER" 

ITAPE 

SAVE "FICHIER" 

{DISC 

!CPM 

CSAVE FICHIER 

AMSDOS 



LOAD "FICHIER' 1 

(changer disquette) 

SAVE "FlCHIER"ou 

ICPM 

FILECOPY FICHIER 

<suivre les instructions; 

AMSDOS I 



LOAD "FICHIER" 
SAVE "FICHIER", A 



ICPM 

FILECOPY FICHIER 

<suivre les 

instructions) 

AMSDOS 

ICPM 

FILECOPY FICHIER 

(suivre les 

instructions) 

AMSDOS 



ICPM 

CSAVE FICHIER 

AMSDOS 

<note 3> 



ICPM 

FILECOPY FICHIER 

<suivre instru.) 

AMSDOS 



* Fichier avec en-tete 

<note 1 > : requiert de l'espace disque libre pour y loger le programme de temporisation 

«TEMP». 

<note 2> : <d> est l'adresse de depart du dossier, <1> sa longueur et <r> l'adresse de 

lancement facultative. 

<note 3> : la copie est inutilisable directement par le BASIC. Cependant cette option est 
un moyen tres rentable de transfer! et de sauvegarde des fichiers. Le fichier peut etre 
ensuite recupere par la disquette au moyen de CLOAD« FICHIER ». 



Guide des messages d'erreur d'AMSDOS 

Lorsque, pour une raison quelconque, AMSDOS ne peut executer une commande, il 
affiche un message d'erreur a l'ecran. En cas de probleme materiel, le message est suivi de 
la question : 

Retry, Ignore or Cancel ? 

R : la commande est reexecutee apres que l'utilisateur ait pallie au probleme. 

I : l'ordinateur continue son travail comme si de rien n'etait, amenant souvent des resul- 
tats inattendus et probablement errones. 

C : l'operation est annulee, ce qui entraine souvent un autre message d'erreur. 
Reportez-vous a la partie 6 du chapitre « Pour information ». 

Unknown command 
La commande n'a pas ete ecrite correctement. 

Bad command 

La commande ne peut etre executee. Erreur de syntaxe ou mauvaise configuration mate- 
rielle. 

<nomfich> already exists 

L'utilisateur essaye de renommer un fichier avec un nom deja utilise sur la disquette. 

<nomfich> not found 
Le fichier n'existe pas. 

Drive <unite> : directory full 
Plus de position dans le catalogue. 

Drive <unite> : disc full 
Plus de place sur la disquette. 



Drive <unite> : disc changed, closing <nomfich> 

La disquette a ete enlevee avec des fichiers laisses ouverts. 

<nomfich> is ready only 

Le fichier est limite en lecture et ne peut etre traite. Cet attribut est accorde ou supprime 
sous CP/M uniquement. 

Drive < unite > : disc missing 

Disquette absente du lecteur, ou mal mise en place (ne tournant done pas). II est alors 
recommande de Fejecter et de la remettre a nouveau, puis de taper R. 

Drive <unite> : disc is write protected 

On a essaye d'ecrire sur une disquette dont le trou de protection en ecriture est ouvert. 
La sortir, obturer le trou de protection, la reinsurer et taper R. 

Drive < unite > : read fail 

Probleme materiel. II est recommande d'ejecter la disquette puis de la remettre en place. 
Taper R. 

Drive <unite> : write fail 

Comme precedemment. 

Failed to load CP/M 

Erreur de lecture au chargement du CP/M (| CPM) ou disquette systeme invalide. Ou 
bien votre disquette ne contient pas de CP/M. 



Partie 2 : CP/M 

Sujets abordes : 

* Chargement du CP/M 

* La zone des variables systeme 

* Le Mode Direct 

* Les programmes transitoires 

* Gestion des peripheriques 

Le CP/M 2.2 est fourni avec le CPC664. CP/M est un systeme Sexploitation de disquettes 
qui vous permettra d'utiliser toute la puissance de votre CPC664. Implante sur de nom- 
breux ordinateurs, CP/M a suscite le developpement de milliers de logiciels duplication 
et accumule une experience et des connaissances enormes, sur lesquelles vous pourrez 
vous appuyer. 

Vous trouverez une documentation complete sur le CP/M, des indications pour Tecriture 
de vos propres programmes et des informations concernant l'implantation CP/M 
d'AMSTRAD, dans le Guide de CP/M (SOFT159-A). 

Introduction 

Le systeme d'exploitation CP/M sert d'interface avec le mecanisme de l'unite, vous per- 
mettant de communiquer avec Tordinateur et de manipuler ses fichiers et peripheriques. 

Le mode direct est l'intermediaire principal a votre disposition. On l'identifie par la pre- 
sence des indicateurs d'attente A > ou B > a Fecran. Certaines commandes, dites residen- 
tes, sont accessibles directement, a l'inverse de la plupart des fonctions, obtenues.en char- 
geant en memoire des programmes, dits transitoires, pour le temps de leur utilisation 
uniquement. 

A cote des messages d'erreur standard du CP/M, le systeme genere ses propres messages. 
Reportez-vous au 'Guide de reference des messages d'erreur AMSTRAD', dans la partie 
1 de ce chapitre. 



[.'organisation des pistes systeme 

La partie essentielle du CP/M reside sur les deux premieres pistes de la disquette. L'ordi- 
nateur charge le CP/M en deux temps dans la memoire. 

La commande | CPM de TAMSDOS charge d'abord le premier secteur de la piste dans 
le CPC664. Ce secteur du disque systeme contient un programme qui gere a son tour le 
chargement des autres pistes systeme en memoire. 

Le systeme effectue des tests de validite du logiciel CP/M se trouvant sur les pistes et cal- 
cule l'adresse de son chargement en memoire. 



La zone des variables systeme 

Lors du premier chargement du CP/M se chargent egalement divers parametres systeme 
a partir d'un secteur particulier des pistes du systeme. Ces parametres comprennent, entre 
autres, le message d'introduction, les codes clavier specifiques, etc. L'utilitaire SETUP 
permet d'adapter ce secteur a vos besoins. 



Les commandes d'edition 

L'univers CP/M, c'est aussi un ensemble de codes clavier speciaux pour controler le 
deroulement des programmes. Ces codes remplacent le [ESC] du BASIC, bien que cer- 
tains progiciels puissent donner a [ESC] sa fonction initiale. 

[CTRL]S : Suspend momentanement la presentation des donnees a l'ecran. Frappez 
n'importe quelle touche pour continuer. 

[CTRL]C : Au debut d'une ligne de commande, redonne la main au mode direct du 
CP/M. Plusieurs utilitaires et programmes d'application y verront une demande de sortie. 

[CTRL]P : Interrupteur marche/arret de votre peripherique d'affichage (generalement 
rimprimante). 

[CTRL]Z : Fin de texte. 



Amoryage de la disquette 

En dehors de l'intervention d'un utilitaire CP/M (tel que FILECOPY), CP/M ne vous 
permet pas d'ecrire sur une disquette sans qu'elle ait prealablement ete amorcee. De plus, 
le type de formatage (Systeme, Data, IBM) n'est pris en compte que lors de l'amorcage. 
Pour l'unite principale (A), cet amorcage se produit chaque fois que CP/M repasse en 
mode direct ou que Ton envoie un [CTRL]C apres le message d'interrogation A> ou 
B > . L'unite supplemental (B) est amorcee la premiere fois que Ton y accede, l'unite A 
etant amorcee. 



Si vous essayez d'ecrire sur une disquette qui n'a pas ete amorcee, le message d'erreur : 

Bdos Err on <drive> : R/O 

...apparait. Appuyez sur n'importe quelle touche pour continuer. Si, de surcroit, la dis- 
quette est dotee d'un format different, une erreur en lecture ou ecriture se produit. Tapez 
C pour poursuivre. 



Les commandes du mode direct 

Au nombre de 5, elles peuvent etre tapees a 1'apparition du symbole A > ou B > : SAVE, 
DIR, ERA, REN et TYPE. 

La premiere d'entre elles, la commande SAVE, est reservee aux specialistes. 

Les messages d'erreur du CP/M tendent a l'economie et ne font que repeter la commande 
ou le nom du fichier errone suivi d'un point d'interrogation. 

< commande inconnue> ? 

Retapez votre commande en corrigeant Terreur. 



Les noms de fichiers 

Beaucoup de commandes ont pour parametres des noms de fichiers contenant, le cas 
echeant, des jockers (voir le paragraphe « jockers » dans la partie 1 du chapitre). Tous les 
noms de fichiers sont automatiquement mis en majuscules. 

A l'exception de CLOAD et CSAVE (voir plus loin), les commandes du mode direct ne 
requierent pas le placement de guillemets de part et d'autre du nom de fichier. 

Rappelez-vous que les noms de fichiers peuvent etre precedes de A: ou B: pour demander 
a CP/M d'utiliser une unite particuliere. 



L'aiguillage des unites 

II est possible d'aiguiller le systeme de selection des unites vers A ou B en tapant A: ou 
B: apres le symbole B > ou A> (qui indique l'unite en cours). L'ajout du prefixe A: ou 
B: au nom de fichier ecrase la valeur de l'unite par defaut mais ne la redefinit pas. 



La commande DIR 

DIR affiche le catalogue de la disquette. Les fichiers apparaissent selon leur ordre d'entree 
sur le repertoire de la disquette. Les jockers sont permis. 

DIR donne la liste de tous les fichiers de Punite par defaut 

DIR B: donne la liste de tous les fichiers de l'unite B 

DIR *.BAS donne la liste des fichiers de type .BAS 

DIR B:*.BAS donne la liste des fichiers de type .BAS de l'unite B 

DIR PIP.COM seul PIP.COM apparait sur la liste (s'il existe) 



La commande ERA 

ERA vient de Tanglais ERAse qui veut dire effacer. Elle sert done a effacer un ou plu- 
sieurs fichiers du catalogue. En fait, la position sur le repertoire est effacee, les donnees 
restant en place jusqu'a ce qu'un autre fichier ne les recouvre. Elles ne peuvent toutefois 
jamais etre recuperees. Bien que les jockers soient permis, la specification de *.* provoque 
Taffichage d'une demande de confirmation avant que ERA n'efface effectivement Tensem- 
ble des fichiers. ERA ne mentionne pas le nom des fichiers qu'elle efface. Si Tun des 
fichiers a effacer est de type 'lecture/seulement', (voir STAT plus loin), la commande 
n'aboutit pas. 

ERA PIP.COM effacera le programme PIP.COM 

ERA BiPIP.COM effacera le fichier PIP.COM de l'unite B 

ERA *.BAS effacera tous les fichiers de type .BAS 



La commande REN 

La commande REN vous permet de changer le nom (RENommer) d'un fichier existant. 
Le nouveau nom est specifie en premier suivi du signe egal ( = ), puis du nom du fichier a 
renommer. Si le nouveau nom existe deja sur la disquette, un message d'erreur s'affiche. 
Les jockers ne sont pas permis. 

REN NOUVNOM.BAS-ANCNOM.BAS donne au fichier ANCNOM.BAS le 

nouveau nom NOUVNOM.BAS 

REN B:NOUVNOM.BAS = ANCNOM.BAS donne au fichier ANCNOM.BAS le 

nouveau nom NOUVNOM.BAS, 

sur B. 



La commande TYPE 

La commande TYPE (imprimer) demande que le fichier specifie defile a Fecran. Si ce 
fichier n'est pas de type ASCII, des choses imprevisibles risquent d'apparaitre a l'ecran. 



TYPE EX1.BAS 
...affiche le fichier EX1 BAS. 

Les commandes transitoires 

Pour realiser sur vos fichiers des operations un peu plus sophistiquees qu'avec le mode 
direct, vous pouvez faire appel a Tun des nombreux programmes utilitaires fournis avec 
le CP/M. Vous les appelez simplement en tapant leur nom, suivi parfois d'un ou plusieurs 
parametres. Vous avez deja probablement utilise FORMAT et FILECOPY. 

Nous avons regroupe ces commandes par categories. Vous en trouverez une documenta- 
tion complete dans le Guide du CP/M (SOFT 159). 

Les commandes SYSGEN, BOOTGEN, FILECOPY, COPYDISC, DISCCOPY, 
CHKDISK, DISCCHK, FORMAT, SETUP, CSAVE, CLOAD et AMSDOS sont 
des commandes propres a AMSTRAD, qui ne marchent que sur son systeme. Elles ne 
peu vent etre employees sur les autres systemes CP/M, bien qu'elles aient leurs equivalents 
(souvent sous le meme nom) sur les autres machines. 



La gestion des peripheriques 

L'utilitaire PIP (Programme d'Interconnexion aux Peripheriques) vous permet d'echan- 
ger des informations entre Tordinateur et ses peripheriques. La forme de ces commandes 
est generalement : 

PI P < destination > = < source > 

La < source > et la < destination > peuvent etre soit un nom de fichier (jockers acceptes), 
soit le code du peripherique. On peut utiliser les codes suivants : 

En tant que source En tant que destination 

CON : clavier CON : ecran 

RDR : interface serie PUN : interface serie 

LST : imprimante 

Exemples : 

PIP B:=A:t.C0M 

...copie tous les fichiers avec extension .COM de Tunite A sur Tunite B. 



PIP SAV.BAS=EXt.BA9 
...realise une copie de EX1 BAS et l'appelle SAV.BAS. 

PIP C0N:=EX1.BA5 
...envoie le fichier EX1 .BAS a Fecran (meme effet que TYPE EX1 .BAS). 

PIP LST:=EX1.BAS 
...envoie le fichier EX1 .BAS sur rimprimante. 

PIP TYPEIN.TXT=CON: 

...place des donnees venant du clavier dans le fichier TYPEIN.TXT. 

L'operation s'acheve par un [CTRL]Z. Pour acceder a une nouvelle ligne, vous devez 
envoyer a chaque fois un [CTRL]J (code ASCII du retour a la ligne) apres [ENTER]. 

Notez que PIP ne peut effectuer de copies de fichiers sur un systeme a une seule unite. 
UtilisezalorsFILECOPY. 

Copies de fichiers et de disquettes 
Copie d'un fichier 

L'utilitaire FILECOPY vous permet de copier des fichiers d'une disquette sur une autre 
avec un systeme a une seule unite. II vous donne les instructions necessaires pour les chan- 
gements de disquettes. Si vous utilisez des noms de fichiers avec jockers, il vous deman- 
dera confirmation entre chaque fichier puis affichera le nom des fichiers au fur et a mesure 
de la copie. 

FILECOPY t.BAS 
...copie tous les fichiers de type .BAS. 

FILECOPY EX1.BAS 
...copie le fichier EX1 .BAS. 



Copie de disquettes entieres et verificateurs 

DISCCOPY (pour un systeme standard a une unite) et COPYDISC (pour un systeme 
a deux unites) vous permettent de faire des duplications de disquettes entieres. Toutes les 
instructions necessaires vous sont donnees a Tecran. 

Les disquettes non formatees ou d'un formatage different sont formatees automati- 
quement. 

Les utilitaires DISCCHK et CHKDISC vous permettent de comparer les deux disquet- 
tes et de verifier qu'elles ont bien le meme contenu. 



Fichiers sur cassette 

Deux utilitaires sont disponibles pour des transferts entre cassette et disquette. Seuls les 
specialistes trouveront toutefois un interet au transfert de fichiers autres que des textes en 
codes ASCII. 

CLOAD accepte deux parametres : le nom du fichier source (sur cassette) entre guille- 
mets, et le nom du fichier destination (sur disquette). Si ce dernier est omis, le fichier sur 
disquette porte le meme nom que celui sur cassette (obligatoirement compatible avec le 
CP/M). Si le nom du fichier source est omis, CLOAD lit le premier nom qu'il rencontre 
sur la bande. Si le premier caractere du nom du fichier cassette est un !, les messages lies 
a l'utilisation des cassettes sont alors supprimes. 

Exemple : 

CLOAD "MA LETTRE" MALETTRE.TXT 

CSAVE accepte trois parametres, les deux premiers etant le nom du fichier source (sur 
disquette) et le nom du fichier destination (sur cassette), entre guillemets. Si le nom du 
fichier destination est omis, ce nom sera celui de la source. Si le premier caractere du nom 
du fichier cassette est un !, les messages 'cassette' sont supprimes. Si les deux noms sont 
specifies, on peut alors utiliser un troisieme parametre specifiant la vitesse d'enregistre- 
ment : O pour 1000 bauds, 1 pour 2000 bauds. 



Exemples : 



CSAVE MALETTRE.TXT "MA LETTRE TEXTE" 1 
CSAVE FICHIER 



Gestion du systeme 
STAT 

La commande STAT apporte des ameliorations a la gestion du catalogue. Toutes les 
regies normalement appliquees aux noms de fichiers restent valables, jockers compris. 
Elle permet : 

STAT 
STAT A: 
STAT Ba 

...affiche Fetat de la disquette et 1'espace disponible. 

STAT I. COM 
STAT EXl.BAS 

...affiche des complements d'information sur un flchier particulier. 

BTAT *.C0M *R/0 
STAT EXi.BAS $R/Q 

...attribue a un fichier le statut 'lecture seulement', de fagon a ce qu'il ne puisse pas etre 
detruit accidentellement. 

STAT *.C0M $R/W 
STAT EX1.BAS *R/W 

...remise au statut normal de lecture/ecriture. 

STAT *.CQM *SYS 
STAT SECRET. 8AS $SYS 

...attribue a un fichier un statut « systeme » qui le rend invisible sur le catalogue de la 
disquette et inaccessible aux programmes de copie de fichiers tout en restant disponible a 
tout autre usage. 

STAT *„CUM *D1R 
STAT SECRET. 8AS $DIR 

...inverse le statut precedent. Redonne au fichier son statut visible. 



SETUP 

Cet utilitaire vous permet de redefinir les caracteristiques du clavier de votre CPC664, du 
lecteur de disquette et de l'interface serie ainsi que de lancer diverses actions au moment 
du chargement du CP/M. Son travail termine, il remet a jour la zone des variables sys- 
teme. Ce programme est dirige par un menu : lorsqu'un ecran est correct ou ne requiert 
aucune modification, vous passez au suivant en repondant Y a la question : 

Is this correct (Y/N) s_ 

II est possible d'arreter le programme a tout moment par [CTRL]:C. Une fois tous les 
changements effectues, il vous demande : 

Do you want to update your system disc <Y/N):_ 

(Confirmez-vous cette remise a jour de la configuration de votre systeme) 

...qui vous permet de revenir a Tancienne configuration (en tapant N). 

Do you want to restart CP/M (Y/N):_ 

...permettant d'initialiser et done de tester votre nouvelle configuration en repondant Y, 

Pour copier la zone ou sont sauvegardees les variables du systeme, d'une disquette sur 
une autre, vous pouvez soit utiliser BOOTGEN (voir plus loin), soit charger SETUP du 
disque source, en repondant Y a toutes les questions et en inserant la disquette cible avant 
de repondre a la derniere question. 

Les caracteres qui ont une valeur ASCII inferieure a 32 peuvent etre entres a l'interieur 
d'une chaine alphanumerique en tapant suivi du caractere t convenable tire de la serie @, 
A...Z, [,\, ], >,-. 

Les options suivantes reviennent le plus souvent : 

** Initial command buffer (zones de commandes a {'initialisation) : 

Tous les caracteres entres ici apparaitront comme s'ils avaient ete tapes en mode direct 
au moment du chargement du CP/M, permettant ainsi de lancer automatiquement un 
programme. Souvenez-vous d'y inclure Tequivalent de la touche [ENTER], representee 
par les deux caracteres | M. 

Ainsi, pour le lancement automatique de la commande STAT, vous devez taper dans 
cette zone : STAT f M 

Sign-on string (le message d'introduction) : 

C'est le message affiche en haut de 1'ecran quand on charge le CP/M. Notez Tutilisation 
de f J t M pour Fentree du saut de ligne et du retour chariot. La premiere partie de ce 
message definit la couleur de Tecran et celle de la bordure pour le mode 80 colonnes (elle 
doit etre recopiee telle quelle si les caracteristiques restent inchangees). 



Keyboard translations (changement des codes clavier) : 

Donne de nouvelles valeurs ASCII aux touches du clavier, comme le fait la commande 
'KEY DEF' du BASIC. Les parametres requis sont les codes cles et les valeurs ASCII a 
leur attribuer. Vous trouverez une illustration des codes cles dans le diagramme figurant 
en haut a droite de l'ordinateur ou au chapitre « Pour information ». 



Keyboard expansions (extensions du clavier) 

Emule la commande BASIC 'KEY'. 

AMSDOS 

Ce programme permet l'abandon du controle par CP/M pour revenir a TAMSTRAD 
BASIC, d'ou les commandes AMSDOS de gestion des disquettes sont disponibles. 

Production de disquettes 
FORMAT 

L'ordinateur accepte trois sortes de format de disquette, dont Tun a deux variantes. 

Le format courant est le format systeme, obtenu a l'aide de la commande FORMAT 
seule. Les pistes systeme sont lues de la disquette contenant le programme FORMAT. 
COM et sont automatiquement ecrites sur la disquette a formater. 

Les autres formats sont obtenus par l'adjonction d'un parametre, une lettre separee de la 
commande par un espace. 

Pour un format de type Donnees : FORMAT D 

Pour un format de type IBM ; FORMAT I 

Pour un format de type Vente : FORMAT V 

AVERTISSEMENT 

Le brevet de votre disquette CP/M (qui possede un numero de serie code electroni- 
quement) vous permet de Tutiliser sur un seul micro-ordinateur. Ceci signifie en particu- 
lier qu'il vous est interdit de faire don d'une copie de votre CP/M (copie qui possederait 
alors votre numero de serie). Etant donne que chacune de vos disquettes de format sys- 
teme contient le CP/M (le votre), il vous est interdit de vendre, d'echanger ou de vous 
separer de toute disquette de ce format. Vous devez pour cela utiliser le format Vente qui 
est identique au format systeme, exception faite des pistes systeme laissees vides. Vous 
pourrez recopier votre logiciel sur cette disquette en utilisant FILECOPY ou PIP. Prenez 
garde a ce que le logiciel ainsi copie ne soit pas lui-meme sujet a des droits d'auteur ou a 
des droits reserves. 



Si vous faites l'acquisition d'un logiciel sur une disquette de format Vente, vous devez, 
pour Tutiliser, le copier sur une disquette systeme a 1'aide de FILECOPY ou PIP, ou 
encore convertir cette disquette en disquette systeme en lui adjoignant le CP/M. Faites 
alors appei aux commandes BOOTGEN et SYSGEIM. LISEZ ATTENTIVEMENT LE 
CONTRAT D'UTILISATION A L' ANNEXE 2 DE CE MANUEL. 



MOVCPM 

On peut avoir besoin d'utiliser une version du CP/M qui ne se charge pas en memoire a 
sa place habituelle (pour reserver cet emplacement memoire a un autre usage, par exem- 
ple). CP/M lui-meme doit descendre en memoire, ce qu'il est possible de faire par tranches 
de 256 octets. La position est indiquee par un parametre qui varie de 64 a 179. Ce parame- 
tre indique le nombre de zones disponibles pour le CP/M et les commandes transitoires. 

La redefinition du CP/M peut etre soit ecrite sur la disquette systeme a l'aide de SYS- 
G E N , soit sauvegardee via le programme MOVCPM. 

La syntaxe de cette commande est : MOVPCM <taille>* 

MOVCPM 178 * 

...descend la zone memoire de 256 octets par rapport a la version standard (qui est la taille 
maximum, c'est-a-dire 179). 



SYSGEN 

SYSGEN ecrit le resultat de la commande MOVCPM sur les pistes systeme d'une dis- 
quette Vente. Les options sont au nombre de trois : 

SYSGEN * 

...enregistre le CP/M obtenu par la commande MOVCPM Tayant immediatement pre- 
cede. 

SYSGEN [<nomfich>l 

...lit dans le fichier specifie (probablement a la suite d'une commande MOVCPM) et 
l'ecrit sur les pistes systeme. Exemple : SYSGEN CPM44.COM 

SYSGEN 

...(sans parametre) demande une disquette source et une disquette destination pour effec- 
tuer le transfert des pistes systeme. Cette option transforme la disquette Vente en dis- 
quette systeme. 



BOOTGEN 

BOOTGEN (qui demande les disquettes source et destination) copie le secteur 1 de la 
piste (le chargeur) et le secteur des variables systeme d'une disquette sur une autre. Utili- 
sez BOOTGEN pour la transformation de votre disquette Vente en disquette systeme ou 
pour distribuer une zone de variables systeme nouvellement creee sur plusieurs disquettes. 

Programmation avancee 

Les programmes suivants serviront surtout aux specialistes. II est recommande de consul- 
ter SOFT 159 - le Guide du CP/M - ainsi que d'autres ouvrages specialises avant de les 

utiliser. 

ASM : L'assembleur du 8080 

DDT : Dispositif de mise au point des codes d'assemblage du 8080 

DUMP : Utilitaire de travail sur fichiers en codes hexadecimaux 

ED : Editeur de texte simple 

SUBMIT : Mode de commandes clavier de traitement par lots 

XSUB : Utilitaire de traitement par lots 



Chapitre 6 
Introduction au LOGO 



L'objectif de ce chapitre est de vous faire prendre contact avec LOGO. 
Assorti d'exemples, il est complete d'un guide des commandes disponibles 
mais n'est ni un cours exhaustif, ni un guide de reference. II existe pour 
cela un « Guide pour le LOGO » (SOFT 160). 

Sujets abordes :. 

* Le concept de LOGO 

* Chargement et mise en service de Dr. LOGO 

* Le graphisme de la tortue 

* Ecrire vos propres procedures 

* Editer vos propres procedures 



Qu'est-ce que le LOGO ? 

Le LOGO peut vous aider a devenir un programmeur, que vous ayez ou non des notions 
d'informatique. C'est un langage puissant qui devient de plus en plus populaire en raison 
de sa simplicite. 

Vous vous servez de « procedures » pour construire les differentes parties de votre pro- 
gramme, Le Dr. LOGO a sa propre collection de « procedures » appelees « primitives » 
que vous utiliserez egalement pour programmer. 

Dans les annees 70, une equipe de chercheurs en informatique et d'educateurs diriges par 
Seymour Papert mit au point le LOGO et sa petite tortue graphique pour permettre a de 
tres jeunes enfants de programmer un ordinateur. La tortue est pour ce« jeunes apprentis, 
comme le dit Papert, un « objet pour penser », un outil pour apprendre d'une fagon 
differente. En forme de tSte de fleche, elle peut etre deplacee sur l'6cran a I'aide de com- 
mandes simples. 



Dr. LOGO 

Le Dr. LOGO est une version tres elabor£e du LOGO. Elle a ete specialement adapte a 
Tordinateur individuel AMSTRAD afin de le rendre encore plus simple a programmer. 
Des extensions ont permis d'y inclure la possibility d'utiliser les puissantes facultes sono- 
res du CPC664 tandis que la correction des programmes est facilitee par le pav6 de gestion 
du curseur. 



Preparons-nous 

Pour mettre en service le Dr. LOGO, inserez une copie de la face 2 de votre disquette 
systeme dans 1'unite de disquettes. (La partie 10 du Cours Elementaire presente les 
instructions qui permettront la copie de la disquette systeme). 

Appuyez sur les trois touches [CTRL] [SHIFT] et [ESC] en meme temps pour remettre 
a zero Tordinateur. 

Tapez | CPM [ENTER] et le LOGO se charge automatiquement. 

Le message suivant apparait sur l'ecran de votre moniteur : 



Welcome to 

Amstrad LOGO VI. 1 

Copyright (C) 1983, Digital Research 

Pacific Grove, California 

Dr. Logo is a trademark o-f 
Digital Research 

Product No. 6002-1232 

Please Wait 



Ce message d'introduction disparait rapidement pour faire place a un ?. 

Ce point d'interrogation vous indique que Dr. LOGO est pret a recevoir vos instructions 
au clavier. 



Les premiers pas 

Essayez de taper en minuscules : 
fd 60 CENTER] 

...et vous verrez apparaitre une tortue qui avancera de 60 unites en laissant un trait der- 
riere elle. L'ecran va se restructurer en menageant une zone importante pour le graphique 
et un emplacement plus petit pour le texte (?) en bas de l'ecran. 

Dr. LOGO decide souvent de changer l'organisation de l'ecran avec soit une grande zone 
pour le texte, soit une grande zone pour le graphisme, selon votre besoin. 



Tapez : 

rt 90 CENTER] 

...et la tortue bouge de 90 degres vers la droite. (A partir de maintenant, nous considerons 
que vous appuierez sur la touche [ENTER] a la fin de chaque commande.) 

Maintenant tapez : 

fd 60 

...et une autre ligne se dessine de la meme longueur que la premiere et a angle droit. 

Entrainez-vous avec les instructions f d, bk (back : arriere) rt et It (left : gauche), pour 
voir ce qui se passe sur l'ecran. 



Les « procedures » de Dr. LOGO 

Une procedure est une liste destructions accomplissant un certain travail. Vous allez 
surement ecrire vos premieres procedures en utilisant les instructions de Dr. LOGO appe- 
lees « primitives ». 

fd, bk, rt et It sont des primitives de Dr. LOGO utilisables a tout moment pour 
construire vos propres « procedures ». Une autre primitive tres utilisee est cs, qui nettoie 
Tecran et renvoie la tortue a la case de depart. 



L'elaboration d'une procedure simple 

Vous pouvez egalement constater que si la formule : 

fd 60 rt 90 
...est repetee 4 fois, elle dessine un carre de 60 unites de cote. 
Vous pouvez obtenir le meme resultat en ecrivant tres simplement : 

repeat 4 [*d 60 rt 90] 
Videz l'ecran et tapez la formule pour voir ce qui se passe. 
Pour faire de cette formule une nouvelle procedure, appelee « carre », tapez : 

to carre 

repeat 4 [*d 60 rt 90] 
end 



Dr. LOGO comprend maintenant « carre » et, chaque fois qu'il le rencontrera, il tracera 
un carre sur l'ecran. Nous aurions pu donner n'importe quel nom a notre procedure, mais 
« carre » est un bon moyen pour s'en souvenir. 

Dr. LOGO nous permet de taper toutes sortes de combinaisons du style : carre rt 45 
carre, qui va dessiner 2 carres, le second ayant un angle de 45 degres par rapport au 
premier. 



Procedures avec parametres 

II est possible de batir des procedures ayxquelles nous pourrons demander « combien », 
de meme que pour les primitives. Pour batir une procedure qui va construire des carres 
de n'importe quelle taille, nous allons redefinir « carre » : 

to carrequelconque :cote 
repeat 4 [fd :cote rt 90] 
end 

Cette nouvelle procedure introduit Tidee de « variable », appelee dans ce cas :cote (le 
CPC664 ne prenant pas les accents). 

Vous remarquerez que la variable :cote est precedee de 2 points qui indiquent d Dr. 
LOGO que :cote est une variable et non pas une commande. 

Lorsque nous utiliserons la procedure carrequelconque, :cote doit recevoir une 
valeur. Ainsi, carrequelconque 150 donnera un carre de 150 unites de cote. 

Essayons de combiner 2 procedures pour voir ce qu'il advient. Par exemple, a partir d'une 
instruction : 

cs carrequelconque 100 rt 45 carrequelconque 150 

...la tortue va dessiner 2 carres de pptes differents, 1'un faisant un angle de 45 par rapport 
a Fautre. 

Notez comment Dr. LOGO utilise un point d'exclamation ! pour vous rappeler qu'une 
ligne de commandes s'est divisee en plusieurs lignes sur l'ecran. 

Utilisation de variables pour stocker des valeurs 

Dr. LOGO vous permet d'utiliser des variables pour stocker des valeurs et en transmettre 
a une procedure. 



Elaborez tout d'abord une procedure appelee triangle : 

to triangle 

repeat 3 t*d sbord rt 120] 

end 

Vous pouvez tester ceci en tapant : 

make "bord 100 
triangle 

Si nous voulons connaitre la valeur du bord, nous entrons :bord apres le ? et Dr. LOGO 
nous affiche sa valeur. 

Enfin, nous pouvons utiliser notre variable :bord dans une nouvelle procedure arm de 
construire un dessin. Remarquez comment la valeur de :bord est augmentee de fa^on a 
agrandir notre dessin a chaque passage. 

to dessin 

triangle It 60 triangle rt 60 

make "bord :bord+4 

dessin 

end 

make "bord 10 

cs dessin 

Quand vous en avez assez, appuyez sur [ESC] pour arreter le programme. 

La correction des programmes et des procedures 

Dr. LOGO vous permet de corriger les fautes de frappe et de modifier les procedures que 
vous avez definies. Les touches utilisees pour la correction sont : 

Les touches curseur <*or>0 pour le deplacement du curseur d'un caractere ou d'une 
Ugne a la fois. 

Les touches curseur oo Qf> combinees & la touche [CTRL] pour se deplacer d'une 
extremite de l'ecran a 1'autre. 

[CLR] efface le caractere sous le curseur. [DEL] efface le caractere & gauche du curseur. 

[ENTER] indique au Dr. LOGO que la correction d'une Ugne de commande est terminee 
ou bien donne la ligne suivante lors de la correction d'une procedure. 

[ESC] signifie fin de correction et [COPY] signale au Dr. LOGO que la correction de 
la procedure est terminee. 



Quand vous entrez des commandes ou de nouvelles procedures, corrigez le texte en face 
de vous sur Tecran. Tout autre caractere que ceux mentionnes plus haut est insere dans 
le texte a la position du curseur. 

Pour la correction d'une procedure existante, utilisez la commande ed 

Dr. LOGO affiche alors l'ancienne version de la procedure sur l'ecran et vous permet 
d'effectuer ainsi vos modifications a l'aide des commandes de gestion du curseur. 

Essayez la correction de la procedure dessin en tapant ed" dessin 

Servez-vous des touches de correction. Quand vous avez termine, appuyez sur la touche 
[ESC]. Dr. LOGO abandonne alors le mode correction et vous redonne la version origi- 
nal inchangee de votre procedure. 

Tapez ed "dessin a nouveau puis changez le 4 en 8, appuyez sur la touche [COPY] 
pour sortir et lancez la procedure pour visualiser le graphique resultant. N'oubliez pas de 
donner une valeur a :bord 



Quelques mots sur le fonctionnement 

L'espace de travail utilise par Dr. LOGO est divise en noeuds. Vous pouvez savoir com- 
bien il vous en reste en tapant : 

nodes 

Parfois, lorsque presque tous les noeuds sont utilises, Dr. LOGO fera le menage de res- 
pace de travail et la tortue fera une pause. On peut aussi demander a Dr. LOGO de faire 
ce nettoyage par la commande : 

recycle 

Ceci pour vous permettre de continuer apres que Dr. LOGO se soit plaint de n'avoir plus 
de noeuds disponibles. 

Avant de lancer Dr. LOGO, assurez-vous qu'il y a suffisamment de place sur votre dis- 
quette pour vous permettre de sauvegarder vos procedures. Utilisez la commande CAT 
d'AMSDOS (voir la partie 7 du Cours Elementaire). 

Jetez un coup d'oeil sur le paragraphe suivant et essayez quelques exemples. Vous ne com- 
prendrez pas tout la premiere fois, mais plus vous avancerez dans votre apprentissage de 
Dr.LOGO, plus vous utiliserez de commandes differentes. 

Quand vous avez termine avec Dr. LOGO, tapez : 

bye 



Liste des primitives de Dr.LOGO 

Ce paragraphe dresse la liste alphabetique des primitives du Dr.LOGO par groupes, en 
donnant la forme syntaxique, parfois accompagnee d'un exemple. 



TRAITEMENT DE MOTS ET DE LISTES : 

(Vous remarquerez les symboles ? et > dans les exemples suivants) 

ascii 

Donne la valeur ASCII du premier caractere de mot entre. 

?ascii "G 
71 

?ascii "g 
103 

bf 

(but first = sauf le premier) Donne un objet sans son premier element. 

?b{ "prendre 

rendre 

?bf [1 2 3] 

C2 31 

bl 

(but last = sauf le dernier) Donne un objet sans son dernier element. 

^bi "prendre 

prendr 

• J bl [1 2 3 43 

[12 3] 

char 

Donne le caractere qui correspond a la valeur ASCII entree. 

?char 83 
S 



count 

Donne le nombre d'elements de l'objet entre. 

?count "six 

3 

?count C0 12 3] 

4 



emptyp 

Repond TRUE (vrai) si l'objet entre et un mot ou une liste vide. Dans le cas contraire 
repond FALSE (faux). 

?emptyp " 
TRUE 

?emptyp [] 
TRUE 

?emptyp Cx] 
FALSE 

?make "x [] 
?e*nptyp :x 
TRUE 



first 

(premier) Donne le premier element de l'objet entre. 

?Hrst "zebre 

z 

?first [1 2 3] 

t 



fput 

(first put = met devant) Donne un nouvel objet en ajoutant le premier element entre juste 
devant le deuxieme. 



?*put H p Vendre 
prendre 
?fput 1 E2 3] 
[1 2 33 



item 

(article) Donne l'element du rang specifie. 

?item 4 "manuel 
u 

list 

Donne la liste des elements entres en les encadrant de crochets (a comparer avec la primi- 
tive se). 

? (1 ist 12 3 4) 

CI 2 3 4] 

?1 ist "peau [rouge] 

[peau Crougel] 

?<list) 

[] 

se 

(sentence = phrase) Donne la liste des elements entres en supprimant les crochets (a com- 
parer avec list). 

?make "instr list rl 

repeat 4 [fd 50 rt 90] 

?run (se "cs sinstrjist "ht) 

Remarque : Le tiret s'obtient en actionnant [SHIFT]©. 



word 

(mot) Donne un seul mot a partir des mots ou elements entres. 

?word "tele "vision 
television 

wordp 

Donne la reponse TRUE (vrai) si l'objet entre est soit un mot, soit un nombre. 

?wordp "bonjour 
TRUE 

?wordp t] 
FALSE 



Operations arithmetiques : 

cos 

Donne le cosinus du nombre entre en degres. 

?cos 60 
0.500000000017049 

int 

Donne la partie entiere du nombre entre. 

?int 4/3 

1 

random 

Donne un nombre entier positif pris au hasard et inferieur au nombre entre. 
?random 20 

sin 

Donne le sinus du nombre entre en degres. 

?sin 30 
0.500000000017049 

+ 

Donne la somme des nombres entres. 

?+ 2 2 
4 

?2 + 2 
4 



Donne la difference des deux nombres entres. 

?- 10 5 

5 

?10-5 

5 



Donne le produit des deux nombres entres. 

?* 4 6 
24 

?"4I4 
24 

/ 

Donne le quotient decimal des deux nombres entres. 

?/ 25 5 
5 

?25/5 
5 

Operations logiques : 
and 

(et) Repond TRUE (vrai) si le resultat de toutes les expressions entrees est vrai. 

?and (3<4) (7>4) 
TRUE 

not 

Repond TRUE (vrai) si Texpression entree est fausse. 
Repond FALSE (faux) si l'expression entree est vraie. 

?not (3=4) 

TRUE 

?not (3=3) 

FALSE 



or 

(ou) Repond FALSE (faux) si toutes les expressions entrees sont fausses. 

?or "TRUE "FALSE 

TRUE 

?or (3=4) (1=2) 

FALSE 



Repond TRUE (vrai) si les deux expressions entrees sont equivalentes ; sinon repond 
FALSE (faux). 

?= "LOGO "LOGO 

TRUE 

?1=2 

FALSE 



Repond TRUE (vrai) si le premier element entre est plus grand que le second ; sinon 
repond FALSE (faux). 

?> 19 20 
FALSE 
?20>19 
TRUE 



Repond TRUE (vrai) si le premier element entre est plus petit que le second; sinon 
repond FALSE (faux). 

?< 27 13 
FALSE 
?13<27 
TRUE 



Variables : 

local 

Rend les variables donnees accessibles uniquement a la procedure en cours. 
Xlocal "x "y "z) 

make 

Pour donner une valeur a une variable. 

?make "cote 50 

?:cote 

50 

Procedures : 
end 

Indique la fin de la procedure. Doit etre isole au debut de la derniere ligne de la procedure. 

?to carre 

>repeat 4 C -f d 50 rt 90] 

>end 

carre defined (carre defini) 

?carre 



po 

(print out = affichage) Affiche sur l'ecran la procedure designee ou la valeur des variables 
specifiees. 

?po "carre 

to carre 

repeat 4 [fd 50 rt 90] 

end 

?po "x 

x is 3 (x est 3) 



pots 

(print out titles = affichage des titres) Affiche les titres de toutes les procedures de Tespace 
de travail. 

?pots 



to 

Indique le debut de la construction d'une procedure. 

?to carre 

>repeat 4 [*d 50 rt 90] 

>end 

carre defined 

Correction : 
ed 

Charge sur Tecran la procedure et/ou les variables designees dans la memoire d'edition 
de Tecran. 

?ed "carre 

Ecran texte : 

ct 

(clear text = vidage du texte) Efface tout le texte de la fenetre oii se promene le curseur 
et ramene le curseur en haut a gauche de celle-ci. 

?ct 



(print = affiche) Affiche les objets entres au clavier sur Tecran texte, enleve les crochets 
d'une liste et va a la ligne (a comparer avec show et type). 

?pr Ea b c] 
a b c 



setsplit 

Delimite le nombre de lignes de Fecran texte. 
?setsplit 10 

show 

Affiche les objets entres au clavier sur l'ecran texte, garde les crochets exterieurs d'une 
liste et va a la ligne (a comparer avec pr et type). 

?show Ca b c] 
[a b c] 

ts 

(text screen = ecran texte) Reserve tout l'ecran pour le texte. 
?ti 



type 

Affiche les objets entres au clavier sur l'ecran texte, enleve les crochets d'une liste et ne va 
pas a la ligne (a comparer avec pr et show). 

?type [a b c3 
a b c 



L'ecran graphique : 

Notez que l'ecran est en mode 1, a 4 couleurs, et que le systeme de coordination est le 
meme que celui du BASIC AMSTRAD. En d'autres termes, chaque position sur l'ecran 
sera arrondie au point ecran ayant le numero pair le plus proche. Les quantites de rouge, 
de vert et de bleu pourront varier entre 0, 1 ou 2. 



clean 

(to clean = nettoyer) Efface tout l'ecran graphique sans toucher a la tortue. 

?fd 50 
?clean 



cs 

(clear screen = vide l'ecran) Efface l'ecran >graphique et ramene la tortue en position [0,0] 
tournee vers (le nord) et avec le stylo baisse. 

?rt 90 fd 50 
?cs 

dot 

Place un point sur l'ecran a la position specifiee par les coordonnees indiquees et selon la 
couleur de stylo en cours. 

?dot C50 10] 

fence 

(barriere) Pose une barriere qui empeche la tortue de sortir des limites de l'ecran. 
window enleve cette barriere. 

?fence 

?fd 300 

Turtle out o* bounds (la tortue est hors des limites) 

fs 

(full screen = plein ecran) Reserve la totalite de l'ecran au graphique. 

pal 

(palette) Donne les trois nombres representant les quantites de rouge, vert, bleu du stylo. 

?pal 2 
C0 2 23 

setpal 

(set palette = fabrication des couleurs) Les trois chiffres assignent les quantites de rouge, 
de vert, de bleu du stylo. 

?setpal 3 CI 1 2] 
?pal 3 
CI l 2] 



sf 

(screen facts = les donnees de l'ecran) Affiche des informations sur l'etat de l'ecran 
graphique. La structure de ces informations est :[<couleur de fond> <etat de l'ecran> 

< longueur de l'ecran texte > < fenetre > < scrunch > ] ou < couleur de fond > est la couleur 
du stylo de fond, toujours 0. <etat de l'ecran > indique SS (split screen = ecran partage), 
FS (full screen = plein ecran) ou TS (text screen = ecran totalement reserve au texte). 

< longueur de l'ecran texte > est le nombre de lignes reserve au texte, et < fenetre > indi- 
que WINDOW (pas de barriere, la tortue peut sortir), WRAP (reapparition de la tortue 
de l'autre cote de l'ecran) ou FENCE (barriere - la tortue ne peut pas sortir des limites 
de l'ecran. < scrunch > est toujours egal a 1. 

?sf 

[0 SS 5 FENCE 13 



ss 

(split screen = ecran partage) Reserve au texte une fenetre sur l'ecran graphique. 

?ss 

window 

Permet a la tortue de sortir des limites de l'ecran apres un wrap ou un fence. 

?fence fd 300 
Turtle out of bounds 
?window 

?fd 300 

wrap 

Fait apparaitre la tortue du cote oppose a celui ou elle sort. 

?cs wrap 
?rt 5 fd 1000 
? cs window 
?rt 5 fd l( 



Les graphismes de la tortue : 
bk 

(back = arriere) Deplace la tortue du nombre de pas indique dans la direction opposee 
au sens de la fleche. 

?cs fd 150 
?bk 50 

fd 

(forward = avant) Avance la tortue du nombre de pas indique dans le sens de la fleche. 
?fd 80 

ht 

(hide turtle = cache tortue) Rend la tortue invisible. Accelere et clarifie le dessin. 

?ht 

?cs fd 50 

?st 

It 

(left = gauche) La tortue tourne du nombre de degres indique vers la gauche. 
?lt 90 



pd 

(pen down = stylo baisse) Le stylo est pose sur le papier et la tortue peut recommencer 
a tracer apres interruption par la primitive pu. 

?fd 20 pu fd 20 

?pd 

?fd 20 



pe 

(pen erase = stylo qui efface) Cette instruction transforme la couleur du stylo en 0, c'est- 
a-dire la couleur du fond, et permet ainsi d'effacer les traits sur l'ecran. 

?fd 50 
?pe 

?hk 25 

?fd 50 

?pd fd 25 

pu 

(pen up = stylo leve) Le stylo est leve, ne laissant plus de trace sur Tecran. 

?*d 30 
?pu 

?*d 30 

?pd fd 30 



px 

(pen exchange = stylo inverse) Change la couleur de tout ce qui a ete trace auparavant 
en sa couleur opposee ou logiquement complementaire. 

?fd 20 pu fd 20 

?pd setpc 3 fd 20 

?px 

?bk 80 

?fd 80 

?pd bk 100 

it 

(right = droite) La tortue tourne du nombre de degres indique vers la droite. 
? rt 90 



seth 

(set heading = changement de direction) Tourne la tortue dans la direction specifiee en 
degres. Les nombres positifs font tourner la tortue dans le sens des aiguilles d'une montre, 
les nombres negatifs en sens inverse. 

?seth 90 



setpc 

(set pen coulour = changement de la couleur du stylo) Le stylo prend la couleur indiquee 
par le nombre donne (0 est la couleur du fond). 

?setpc 1 



setpos 

(set position = changement de position) Envoie la tortue a la position indiquee par les 
coordonnees specifiees. 

?setpos [30 20] 



st 

(show turtle = montre tortue) Pour rendre visible a nouveau une tortue invisible. 

?ht 

?fd 50 
?st 



tf 

(turtle facts = donnees de la tortue) Affiche une liste d'informations concernant la tortue. 
Le format est : [<coordx> <coordy> < direction > <etat du stylo > < couleur du stylo 
n> < visibility >] ou <coordx> est la coordonnee x de la tortue ; <coordy> est la coor- 
donnee y de la tortue ; < direction > indique la direction vers laquelle se tourne la tortue 
(en degres) ; <visibilite> est TRUE (vrai) lorsque la tortue est visible ; <etat du stylo > 
indique PD (pen down = stylo baisse), PE (pen erase = stylo qui efface), PX (pen 
exchange = stylo inverse), PU (pen up = stylo leve) ; < couleur du stylo n> identifie le 
numero de la couleur du stylo n. 

?setpos C15 30] 

?rt 60 

? setpc 3 

?pe 

?ht 

?tt 

[15 30 60 PE 3 FALSE] 



Gestion de I'espace de travail : 
er 

(erase = efface) Efface la procedure specifiee de I'espace de travail. 
?er "carre 

em 

(erase name = efface le nom) Efface la ou les variables specifiees de I'espace de travail. 

?make "cote [1801 

?make "angle [45] 

?:cote -.angle 

[10(31 

[451 

?ern [cote angle] 

?:cote 

cote has no value (cote ne vaut rien) 

nodes 

Affiche le nombre de noeuds disponible dans I'espace de travail. 
?nodes 

recycle 

Libere le plus de noeuds possible et reorganise I'espace de travail. 

?recycle 
?nodes 

Listes de propriete : 
glist 

(get list = donne la liste) Permet d'obtenir une liste de tous les objets de I'espace de travail 
auxquels on a attache une ou des proprietes. 

?Qlist '\DEF 



gprop 

(get property = donne la propriete) Permet d'obtenir la valeur de la propriete du nom 
designe. 

?<nake "hauteur "72 
?gprop "hauteur ".APV 
72 



plist 

(property list = liste des proprietes) Permet d'obtenir la liste des proprietes attachees a 
un mot. 

?plist "hauteur 
[.APV 723 



pprop 

(put property = donne une propriete) Permet de creer un lien entre un mot et une pro- 
priete. 

?pprop "maitre '\APV "Corbeau 

7 :mai tre 

Corbeau 



remprop 

(remove property = elimine la propriete) Elimine la propriete specifiee de la liste de pro- 
priete du mot. 

?remprop "maitre ".APV 



Fichiers sur disquette : 
dir 

(directory = catalogue) Permet d'obtenir une liste de noms de fichiers en Dr. LOGO pre- 
sents sur une disquette, soit specifiee, soit prise par defaut ; accepte egalement les jockers. 

?dir "a: ??^? 79 ?? 

(Etudiez la partie 1 du chapitre intitule « AMSDOS et CP/M » pour l'utilisation des 
jockers???????? Dr. LOGO ne tient toutefois pas compte du jocker *.) 



load 

Charge le fichier specifie, de la disquette sur l'espace travail de 1'ordinateur. 

?load "monf ichier 
?load "bsdessins 

save 

Ecrit le contenu de Tespace travail dans un fichier sur la disquette specifiee. 
?save "dessins 

Clavier et manette de jeu : 

buttonp 

(button pressed = bouton appuye) Repond TRUE (vrai) si le bouton de la manette de 
jeu est actionne. Les numeros et 1 servent a identifier les deux manettes de jeu. 

?to tirer 

>Ubel "boucle 

>if (buttonp 0) [pr Ctirer 0! 3] 

>if (buttonp 1) Cpr Ctirer i! ]] 

>go "boucle 

>end 

La position de la manette de jeu est testee par paddle. 



keyp 

Repond TRUE (vrai) si un caractere vient d'etre tape au clavier et attend d'etre enre- 
gistre. 

?to inkey 

>if keyp [op rc3 [op "] 

>end 



paddle 

Permet de connaitre les etats de la manette ou 1 . Les differentes positions sont codees 
comme suit : 



Valeur retournee 


Signification 


255 


Rien 





En haut 


1 


En haut et a droite 


2 


A droite 


3 


En bas et a droite 


4 


En bas 


5 


En bas et a gauche 


6 


A gauche 


7 


En haut et a gauche 


?paddle 




255 





Les boutons de tir sont testes par la commande buttonp. 

re 

(read character = sortie d'un caractere) Sort le premier caractere tape au clavier. 

?make "touche re 

...et appuyez sur la touche X : 

?: touche 
X 



(read list = sortie d'une liste) Donne une liste contenant une entree au clavier qui doit 
etre suivie d'un retour chariot. 

?fnake "instr list rl 
repeat 4 C*d~5l3 rt 903 
?:instr list 
[repeat 4 Cfd 50 rt 9013 



(read quote = extraction d'un mot) Donne un mot contenant une ligne entree au clavier, 
qui doit etre suivi d'un retour chariot. 

?make "commande rq 

repeat 3 C+d 60 rt 120] 
?: commande 

repeat 3 C -f d 60 rt 120] 



LE SON : 

Seule la version AMSTRAD de Dr. LOGO possede des commandes pour le son. Elles 
sont d'ailleurs identiques a leurs equivalents BASIC. Reportez-vous a la partie 9 du 
Cours Elementaire pour plus de details. 



sound 

Met un son dans une suite de sons (queue). Le format de cette instruction est : [<etat de 
canal > < peri ode sonore> <duree> < volume > < en veloppe de volume > <enveloppede 
tonalite> < bruit >]. To us les parametres apres duree sont facultatifs. 

?saund CI 20 503 



env 

Construit l'enveloppe de volume (la forme de la note). Son format est 
[<numero de l'enveloppe > <section(s) de l'enveloppe >] 

?env CI 100 2 20] 
?sound CI 200 300 5 13 



ent 

Construit l'enveloppe de tonalite. Son format est : [ < numero de l'enveloppe > < section(s) 
de l'enveloppe >] 

?ent CI 100 2 203 
?sound Ct 200 300 5 1 13 



release 

Libere les canaux dont Texecution a ete suspendue par la commande sound. Les canaux 
a liberer sont indiques par le code suivant : 



Valeur entree 


Canaux liberes 





Aucun 


1 


A 


2 


B 


3 


A et B 


4 


C 


5 


A etC 


6 


BetC 


7 


A et B et C 


?release 1 





Les commandes de deroulement de programme : 

bye 

Lorsque Ton en a termine avec Dr. LOGO. 

9 bye 

CO 

Pour continuer apres une pause provoquee par [CTRL]Z, pause ou ERRACT. 

go 

Execute la ligne de commande reperee par une etiquette a l'interieur d'une procedure. 

>qo "boucl e 

if 

Execute une ou deux listes destructions suivant la valeur de Texpression entree ; ces lis- 
tes en toutes lettres doivent etre entourees de crochets. 

>i-f i:a>:b) Lpr La est plus grand]] 
>if (:a<:b) Lpr Cb est plus grand]] 



label 

Pose une etiquette sur une ligne destruction qui pourra ainsi etre appelee a Taide de la 
commande go. 

>label "boucle 



op 

(output — retourne) Affiche Tobjet entre et interrompt la procedure. 
?op [resultat] 

repeat 

Repete la liste d'instructions autant de fois que le numero le specific 
?repeat 4 [fd 50 rt 90] 

run 

Execute la ligne d'instructions. 

?make "instrjist C + d 40 rt 90] 
?run :instr list 



stop 

Interrompt l'execution de la procedure en cours et revient au niveau superieur 
TOPLEVEL (le symbole ?) ou a la procedure d'appel. 

?stop 



wait 

Arrete l'execution de la procedure pendant le temps specifie par le nombre entre. 
La longueur du temps de pause est : nombre entre * 0,22 seconde. 
?wait 20 



Traitements des cas particuliers : 
catch 

(attrape) Pour traiter une erreur ou un cas particulier qui survient pendant l'execution 
d'une serie destructions. 

>catch "error [ + CI []] 
>pr C je suis ici ] 
je suis ici 



error 

Donne la liste d'instructions qui a cause la derniere erreur. 

>catch "error Cexecute jusqu'a 1'erreur] 
>show error 



pause 

Suspend l'execution de la procedure en cours, permettant ainsi le dialogue entre Dr. 
LOGO et l'utilisateur. 

>if :cote>5 Cpause] 



throw 

Execute la ligne destruction identifiee par le nom entre sous catch. 
?throw "TQPLEVEL 

Les primitives systeme : 
.contents 

Affiche le contenu de l'emplacement des symboles de Dr. LOGO. 



.deposit 

Place le deuxieme nombre entre a l'emplacement memoire donne par le premier nombre. 

.examine 

Affiche le contenu de l'emplacement memoire specifie. 

Les variables systeme : 

ERRACT 

Renvoie au niveau superieur TOPLEVEL, lorsque TRUE (vrai) provoque une pause au 
moment d'une erreur. 

FALSE 

Valeur systeme. 

REDEFP 

Quand TRUE (vrai) permet la redefinition des primitives. 

TOPLEVEL 

throw '"TOPLEVEL clos toutes les procedures en attente. 

TRUE 

Valeur systeme. 

Les proprietes du systeme : 
.APV 

Valeur de la variable associee a la propriete ; a savoir la valeur de la variable globale. 



.DEF 

Definition d'une procedure 

.PRM 

Identifie une primitive. 



Chapitre 7 

Pour information... 



Ce chapitre fournit les informations de reference susceptibles de vous aider 
a utiliser votre ordinateur. 

Sujets abordes : 

* Deplacements du curseur et fonctions des codes de controle 

* Interruptions 

* Caracteres graphiques et ASCII 

* References cles 

* Sons 

* Messages d'erreur 

* Mots cles du BASIC 

* Grilles 

*' Connexions 

* Imprimantes 

* Manettes de jeu 

* Organisation des disques 

* Memoire 

Pour des informations completes sur le BASIC et les microprogrammes 
du CPC664, consultez respectivement les manuels SOFT 945 et SOFT 946 
d'AMSOFT 



Partie 1 : Deplacements du curseur 
et fonctions des codes de controle 

Dans un certain nombre de progiciels (ou programmes duplication), le curseur de texte 
peut se trouver a Texterieur de la fenetre utilisee. Certaines operations commencent par 
ramener le curseur a sa position legale. Ce sont : 



1. L'ecriture d'un caractere 

2. Le dessin du bloc du curseur 

3. L'envoi d'un code de controle marque d'un asterisque dans les pages suivantes. 
La procedure qui ramene le curseur a une position legale est la suivante : 

1. Si le curseur est completement a droite, il est ramene a l'extreme gauche de la ligne 
suivante. 

2. S'il se trouve a gauche du bord gauche, il est ramene a droite sur la ligne precedente. 

3. Si le curseur est au-dessus du bord superieur, 1'ensemble de la fenetre descend alors 
d'une ligne et le curseur se place sur la premiere ligne. 

4. Si le curseur est en dessous du bord inferieur, 1'ensemble de la fenetre monte alors d'une 
ligne et le curseur se place sur la derniere ligne. 

Les tests et operations se font dans l'ordre indique. Les positions de curseur illegales peu- 
vent s'exprimer par un nombre nul ou negatif, correspondant a la position a l'exterieur 
du bord gauche ou au-dessus d'une fenetre. Les valeurs de caractere de a 31 ne pro- 
duisent rien sur 1'ecran et ne devraient pas etre utilisees inconsiderement. Certains codes 
changent la signification du ou des caracteres qui les suivent, les considerant comme para- 
metres d'une fonction particuliere. 

S'il est genere a partir du clavier, un code de controle envoye a 1'ecran graphique provo- 
que simplement raffichage du symbole conventionnel correspondant a sa fonction (exem- 
ple : &07'BEL' - [CTRL]G). II ne remplit sa fonction de controle qu'envoye par l'une 
des commandes suivantes : 

PRINT CHR$ (&07), ou PRINT "jft " (^s'obtient en appuyant sur [CTRL]G a 
Finterieur de l'instruction PRINT). 

Les codes marques d'un asterisque * commencent par forcer le curseur a se rendre sur 
une position legale - mais peuvent laisser le curseur dans une position non legale. Les 
codes sont indiques d'abord avec leur valeur hexadecimale (&XX) puis 1'equivalent 
decimal. 



Codes de controle 



Valeur 


Nom Parametre 


Fonction 


&00 


NUL 


Pas d'effet. Ignore. 


&01 1 


SOH a 255 


Affiche le symbole correspondant a la 
valeur du parametre. Permet ainsi 
l'affichage des symboles de a 31. 


&02 2 


STX 


Supprime le curseur de texte. Equivaut 
a la commande CURSOR accompa- 
gnee d'un parametre utilisateur egal a 0. 


&03 3 


ETX 


Active le curseur de texte. Equivaut a la 
commande CURSOR accompagnee 
d'un parametre utilisateur egal a 1 . Pour 
afficher un curseur a l'interieur d'un 
programme en BASIC (autre que le cur- 
seur automatique genere par le BASIC 
en attente d'une entree au clavier), il 
faut faire appel a une commande 
CURSOR avec un parametre systeme 
egal a 1. 


&04 4 


EOT a 2 


Active le Mode ecran. Valeur du para- 
metre modulo 4. Equivaut a une com- 
mande MODE. 


&05 5 


ENQ a 255 


Envoie le caractere code par le parame- 
tre a la position du curseur graphique. 


&06 6 


ACK 


Active 1'ecran de texte (voir &15 NAK). 


&07 7 


BEL 


Fait sonner la cloche. (Vide les files d'at- 
tente des canaux sonores). 


&08 8* 


BS 


Deplace le curseur d'une colonne a 
gauche. 



Valeur 


Norn 


Parametre 


Fonction 


&09 9* 


TAB 




Deplace le curseur d'une colonne a 
droite. 


&0A 10 * 


LF 




Deplace le curseur d'une ligne vers le 
bas. 


&0B 1 1 * 


VT 




Deplace le curseur d'une ligne vers le 
haut. 


&OC 12 


FF 




Efface l'ecran de texte et place le curseur 
en haut a gauche ; equivaut a une com- 
mande CLS. 


&0D 13 * 


CR 




Amene le curseur jusqu'au bord gauche 
de la fenetre sur la ligne courante. 


&0E 14 


so 


0a 15 


Definit FEncre du Papier = Commande 

PAPER. 

Valeur du parametre modulo 16. 


&0F 15 


SI 


0a 15 


Defihit 1'Encre du stylo = Commande 

PEN. 

Valeur du parametre modulo 16. 


&10 16* 


DLE 




Efface le caractere. Remplit la matrice 
du caractere avec la couleur du Papier. 


&11 17* 


DC1 




Efface depuis le bord gauche de la fene- 
tre jusqu'au caractere courant, en rem- 
plissant les matrices de caractere 
concernees avec l'encre du Papier. 


&12 18* 


DC2 




Efface a partir du caractere courant 
(inclus) jusqu'au bord droit de la fene- 
tre. Remplit les matrices de caracteres 
concernees avec l'encre du papier. 


&13 19* 


DC3 




Efface depuis le debut de la fenetre jus- 
qu'au caractere courant. Remplit avec 
l'encre du Papier. 



Valeur 


Nom 


Parametre 


Fonction 


&14 20 * 


DC4 




Efface a partir du caractere jusqu'a la 
fin de la fenetre. Remplissage avec l'en- 
cre du Papier. 


&15 21 


NAK 




Desactive 1'ecran de texte. Rien ne 
s'affichera jusqu'a ce qu'un caractere 
ACK (&066) ait ete envoye. 


&16 22 


SYN 


Oa 1 


Parametre modulo 2. supprime le 
mode transparent, 1 etablit le mode 
transparent. 


&17 23 


ETB 


0a3 


Parametre modulo 4. valide le mode 
d'Encre Graphique NORMAL 

1 valide le mode d'Encre Graphique 
XOR (ou exclusif) 

2 valide le mode d'Encre Graphique 
AND (et) 

3 valide le mode d'Encre Graphique OR 
(ou inclusif) 


&18 24 


CAN 




Echange des encres papier et stylo. 


&19 25 


EM 


0a255 


Equivaut a la commande SYMBOL. 






0a255 


Admet neuf parametres dont le premier 






0a255 


concerne le code du caractere ; les sui- 






0a255 


vants correspondent chacun a une ligne 






0a255 


de la matrice des caracteres. Le bit de 






0a255 


poids le plus fort du ler octet corres- 






0a255 


pond au point superieur gauche du 






0a255 


caractere, tandis que le plus faible cor- 






0a255 


respond a son point inferieur droit. 


&1A26 


SUB 


la 80 


Etablit la fenetre = commande WIN- 






1 a 80 


DOW. Les deux premiers parametres 






1 a 25 


definissent les bords gauche et droit, la 






1 a 25 


plus petite valeur correspondant au 
bord gauche et la plus grande au bord 
droit. Les deux derniers parametres 
definissent les bords superieur et infe- 
rieur. La plus petite valeur correspond 
au bord superieur et la plus grande au 
bord inferieur. 



Valeur 


Nom 


Parametre 


Fonction 


&1B27 


ESC 




Pas d'effet. Ignore. 


&1C28 


FS 


Oa 15 


Attribue deux couleurs a une encre. 






0a31 


Equivaut a une commande IN K. Le pre- 






0a31 


mier parametre definit le numero de 
l'encre (modulo 16), les suivants definis- 
sent les couleurs (modulo 32). Les 
valeurs des parametres 27 a 31 corres- 
pondent a des couleurs non definies. 


&1D29 


GS 


0a31 


Attribue deux couleurs au cadre 






0a31 


(border). Equivaut a la commande 
BORDER. 

Les deux parametres (modulo 32) spe- 
cifient les deux couleurs. Les valeurs 27 
et 31 sont indefinies. 


&1E30 


RS 




Amene le curseur vers le coin superieur 
gauche de la fenetre. 


&1F31 


US 


la 80 


Amene le curseur a une position donnee 






1 a 25 


dans la fenetre courante. Equivaut a une 
commande LOCATE. Le premier para- 
metre specifie la colonne, le deuxieme 
specifie la ligne. 



L'organisation interne du CPC664 est assuree par un systeme d'exploitation perfectionne 
travaillant en temps reel. Le systeme d'exploitation gere le « trafic des informations » 
dans l'ordinateur depuis les entrees jusqu'aux sorties. 

II sert principalement de lien entre la machine et Tinterpreteur BASIC - pour les couleurs 
clignotantes, par exemple, le BASIC passe les parametres au systeme d'exploitation qui 
organise le travail. L'un determine ce qu'il faut faire et l'autre quand il faut le faire. 

Le systeme d'exploitation fait partie du logiciel integre a la machine (que les anglais 
appellent firmware, c'est-a-dire melange de hardware et de software). II contient les routi- 
nes en code machine appelees par le BASIC. 



Si vous desirez experimenter les commandes POKE et CALL, commencez par sauvegar- 
der et lister votre programme, car vous risqueriez de regretter vos manoeuvres. Depassant 
l'objectif de cet ouvrage, le systeme d'exploitation du logiciet est decrit en detail dans le 
manuel SOFT 946. 

Pour programmer en code machine, vous devez faire appel a un assembleur. L'assem- 
bleur DEVPAC d' AM SOFT comprend un assembleur Z80 translatable, un editeur, un 
desassembleur et un moniteur. 



Partie 2 : Interruptions de programme 



Pour implementer plusieurs fonctions multi-taches, le CPC664 fait appel aux interrup- 
tions du Z80, dont AFTER et EVERY sont des exemples. Voici l'ordre de priorite des 
compteurs d'evenement : 

Rupture ([ESC] [ESC]) 

Compteur 3 

Compteur 2 (et les 3 files d'attente des canaux sonores) 

Compteur 1 

Compteur 

Les interruptions doivent tenir compte des etats intermediaires d'une variable. Le sous- 
programme d'interruption doit eviter les interactions indesirables avec l'etat des variables 
du programme principal. 

Les files d'attente des canaux sonores ont des interruptions de meme priorite. Ainsi, lors- 
que le sous-programme d'interruption d'une file d'attente d'un canal sonore s'execute, il 
ne peut etre interrompu par aucune autre file d'attente. Ceci permet aux sous-program- 
mes d'interruption de partager des variables en evitant les incidences facheuses que nous 
venons d'evoquer. 

Quand une interruption propre a la file d'attente d'un canal sonore a ete autorisee (a 
1'aide de ON SQ GOSUB), elle est immediatement prise en compte si la file concernant 
le canal n'est pas pleine. Dans le cas contraire, elle se produit a la fin de la generation 
sonore courante (s'il reste de la place dans la file). Le fait d'etre interrompu, devalide 
1'evenement de sorte que le sous-programme d'interruption doit proceder a la reautorisa- 
tion pour que d'autres interruptions soient susceptibles d'intervenir. 

La tentative de generer un son et de tester l'etat de la file a egalement pour consequence 
de devalider une interruption. 



Partie 3 : Caracteres ASCII et graphiques 



ASCII 



A titre de reference, nous reproduisons ici le jeu de caracteres standard ASCII avec la 
notation decimale, octale et hexadecimale. Les pages suivantes donnent le detail de cha- 
que matrice de caractere du CPC664. 



DECI. 


OCTAL 


HEXA. 


Caracteres ASCII 


DtCI. 


OCTAL HEXA. 


ASCII 


DtCI. 


OCTAL HEXA. 


ASCII 





000 


00 


NUL([CTRL]3) 


50 


062 


32 


2 


100 


144 


64 


d 


1 


001 


01 


SOH([CTRL]A) 


51 


063 


33 


3 


101 


145 


65 


e 


2 


002 


02 


STX([CTRL]B) 


52 


064 


34 


4 


102 


146 


66 


f 


3 


003 


03 


ETX([CTRL)C) 


53 


065 


35 


5 


103 


147 


67 


9 


4 


004 


04 


EOT([CTRL]D) 


54 


066 


36 


6 


104 


150 


68 


h 


5 


005 


05 


ENQ([CTRL]E) 


55 


067 


37 


7 


105 


151 


69 


i 


6 


006 


06 


ACK([CTRL]F) 


56 


070 


38 


8 


106 


152 


6A 


J 


7 


007 


07 


BEL([CTRL]G) 


57 


071 


39 


9 


107 


153 


6B 


k 


8 


010 


08 


BS([CTRL]H) 


58 


072 


3A 




108 


154 


6C 


L 


9 


011 


09 


HT([CTRL)I) 


59 


073 


3B 


? 


109 


155 


6D 


m 


10 


012 


OA 


LF([CTRL]J) 


60 


074 


3C 


< 


110 


156 


6E 


n 


11 


013 


OB 


VT([CTRL]K) 


61 


075 


3D 


- 


111 


157 


6F 





12 


014 


OC 


FF([CTRL]L) 


62 


076 


3E 


> 


112 


160 


70 


P 


13 


015 


OD 


CR ([CTRL]M) 


63 


077 


3F 


? 


113 


161 


71 


q 


14 


016 


OE 


SO([CTRL]N) 


64 


100 


40 


@ 


114 


162 


72 


r 


15 


017 


OF 


SI ([CTRLJO) 


65 


101 


41 


A 


115 


163 


73 


s 


16 


020 


10 


DLE([CTRL]P) 


66 


102 


42 


B 


116 


164 


74 


t 


17 


021 


11 


DC1 <[CTRL]Q) 


67 


103 


43 


C 


117 


165 


75 


u 


18 


022 


12 


DC2 ((CTRL]R) 


68 


104 


44 


D 


118 


166 


76 


V 


19 


023 


13 


DC3([CTRL]S) 


69 


105 


45 


E 


119 


167 


77 


w 


20 


024 


14 


DC4([CTRl_m 


70 


106 


46 


F 


120 


170 


78 


X 


21 


025 


15 


NAK([CTRL]U) 


71 


107 


47 


G 


. 121 


171 


79 


y 


22 


026 


16 


SYN ([CTRL]V) 


72 


110 


48 


H 


122 


172 


7A 


z 


23 


027 


17 


ETB([CTRL]W) 


73 


111 


49 


I 


123 


173 


7B 


i 


24 


030 


18 


CAN ([CTRL]X) 


74 


112 


4A 


J 


124 


174 


7C 


I 


25 


031 


19 


EM([CTRL]Y) 


75 


113 


4B 


K 


125 


175 


7D 


> 


26 


032 


1A 


SUB([CTRL]Z) 


76 


114 


4C 


L 


126 


176 


7E 




27 


033 


1B 


ESC 


77 


115 


4D 


M 










28 


034 


1C 


FS 


78 


116 


4E 


N 










29 


035 


1D 


GS 


79 


117 


4F 













30 


036 


1E 


RS 


80 


120 


50 


P 










31 


037 


1F 


US 


81 


121 


51 


Q 










32 


040 


20 


SP 


82 


122 


52 


R 










33 


041 


21 


i 


83 


123 


53 


S 










34 


042 


22 


» 


84 


124 


54 


T 










35 


043 


23 


# 


85 


125 


55 


U 










36 


044 


24 


$ 


86 


126 


56 


V 










37 


045 


25 


X 


87 


127 


57 


w 










38 


046 


26 


& 


88 


130 


58 


X 










39 


047 


27 


■ 


89 


131 


59 


Y 










40 


050 


28 


( 


90 


132 


5A 


Z 










41 


051 


29 


) 


91 


133 


5B 


c 










42 


052 


2A 


* 


92 


134 


5C 


\ 










43 


053 


2B 


+ 


93 


135 


5D 


3 










44 


054 


2C 




94 


136 


5E 


T 










45 


055 


2D 


_ 


95 


137 


5F 


- 










46 


056 


2E 




96 


140 


60 












47 


057 


2F 


/ 


97 


141 


61 


a 










48 


060 


30 





98 


142 


62 


b 










49 


061 


31 


1 


99 


143 


63 


c 











Le jeu de caracteres particulier du CPC664 



Les caracteres representes ici sont contenus dans la matrice standard 8x8 utilisee pour 
Taffichage du CPC664. L'utilisateur peut generer des caracteres et les grouper ou les ali- 
gner pour obtenir divers effets speciaux (voir le paragraphe « Caracteres definis par l'utili- 
sateur » du chapitre « A vos heures de loisir... »). 




33 

&H21 

&X001 00001 




37 

&H25 

&X00100101 




-^s 






■1 


-J ML 











41 

&H29 

&X00101001 




45 

&H2D 

&X00101101 



34 

&H22 
&X001 00010 




38 

&H26 

&X00100110 




42 

&H2A 

&X00101010 



46 

&H2E 

&X00101110 



FlfS 




35 

&H23 
&X001 00011 






39 

&H27 

&X00100111 




43 

&H2B 
&X001 01011 



■ 



47 

&H2F 
&X001 01111 



32 &H20 
&X001 00000 




36 

&H24 

&X00100100 

M 



H 



40 

&H28 

&X00101000 



44 

&H2C 

&X00101100 




48 

&H30 
&X001 10000 





49 

&H31 
&X001 10001 



50 

&H32 
&X001 10010 




m 




5W E 

1 1 mm 1 1 



51 

&H33 
&X001 10011 



52 

&H34 

&X00110100 





53 

&H35 
&X001 10101 



54 

&H36 

&X00110110 





55 

&H37 

&X00110111 



56 

&H38 

&X00111000 





57 

&H39 
&X001 11001 



58 

&H3A 
&X001 11010 



gas 



m 



59 

&H3B 
&X001 11011 



60 

&H3C 

&X00111100 



fffflff 



■■■■■■ " 

JfflRFF: 

JUUUUW- 

rTTTTTII 



MS 



-fffffi 



61 


62 


&H3D 


&H3E 


&X00111101 


&X00111110 





63 

&H3F 
&X001 11111 



64 

&H40 
&X01 000000 





65 

&H41 

&X01000001 



66 

&H42 

&X01000010 





67 

&H43 
&X01 000011 



68 

&H44 
&X01 000100 



?WF: 



69 

&H45 

&X01000101 




70 

&H46 

&X01000110 




71 

&H47 . 
&X01000111 




72 

&H48 

&X01001000 




73 

&H49 

&X01001001 



i 

■Br 


fc 



74 

&H4A 

&X01001010 



■IT ■ 

Jj ■■ 
Tj BBB 

"■■I ■ 
■■IB 



J_I_L 



75 

&H4B 

&X01001011 



raj 



76 

&H4C 

&X01001100 




77 

&H4D 

&X01001101 




78 

&H4E 

&X01001110 





79 


80 


&H4F 


&H50 


&X01001111 


&X01010000 




81 

&H51 

&X01010001 




82 

&H52 

&X01010010 



■■ I II BB 



83 

&H53 

&X01010011 




84 

&H54 

&X01010100 




85 

&H55 

&X01010101 



!:i=: 



86 

&H56 

&X01010110 




87 

&H57 

&X01010111 




88 

&H58 

&X01011000 




89 

&H59 

&X01011001 




90 

&H5A 

&X01011010 




91 

&H5B 

&X01011011 



IT. 



92 

&H5C 

&X01011100 




93 

&H5D 

&X01011101 




94 

&H5E 

&X01011110 



ffffffff 



95 

&H5F 

&X01011111 



mm 



96 

&H60 
&X01 100000 



Hi 9 



J-LL 



97 

&H61 
&X01 100001 




&H62 
&X01 100010 



™ |j3j 



■■ Ml ■■ 



11111 



99 100 

&H63 &H64 

&X01 100011 &X01100100 




101 
&H65 
&X01 100101 




102 

&H66 

&X01100110 




103 

&H67 

&X01100111 




104 

&H68 

&X01101000 




105 
&H69 
&X01 101001 




106 

&H6A 

&X01101010 




107 

&H6B 

&X01101011 



■ 

■ 

■ 



108 

&H6C 

&X01101100 







109 

&H6D 

&X011O1101 



110 

&H6E 

&X01101110 



111 
&H6F 
&X01 101111 



112 
&H70 
&X01 110000 



S 




\ TT \ 

rrr"i 






ass 

i rrrrn 1 1 




113 
&H71 
&X01 110001 



114 
&H72 
&X01 110010 



115 

&H73 

&X01110011 



116 

&H74 

&X01110100 






117 
&H75 
&X01 110101 



118 

&H76 

&X01110110 



119 

&H77 

&X01110111 



SHI 



S^£PFi 



T ■ T n ' ' ' 

120 

&H78 
&X01111000 



U I MJIJJ SSS3E ffl£HB FT 



■JUUUCJ" 
•TtTtibb 



121 

&H79 

&X01111001 





122 

&H7A 

&X01111010 



123 

&H7B 

&X01111011 



124 

&H7C 

&X01111100 





125 

&H7D 

&X01111101 



126 

&H7E 

&X01111110 



127 
&H7F 
&X01 111111 



128 

&H80 

&X 10000000 




129 

&H81 

&X10000001 



■■■a-H-t- 



133 

&H85 

&X10000101 




130 

&H82 

&X 10000010 




134 

&H86 

&X10000110 




131 

&H83 

&X1 0000011 



siiiiiii 

mm 



135 

&H87 

&X1 00001 11 




132 

&H84 

&X1 00001 00 



PI 

m 



136 

&H88 

&X1 0001 000 




137 

&H89 

&X1 0001 001 



::: 



138 

&H8A 

&X1 0001 010 




139 

&H8B 

&X1 0001 011 



J 






!■■■■■ 

■■■■■■■a 



140 

&H8C 

&X1 0001 100 




■88888! 



141 

&H8D 

&X1 0001 101 




145 

&H91 

&X10010001 



8888! 



142 

&H8E 

&X10001110 




146 

&H92 

&X10010010 



■■■■■■■I 



143 

&H8F 

&X10001111 




147 

&H93 

&X10010011 



11 



144 

&H90 

&X1 001 0000 




148 

&H94 

&X10010100 



IH IB Us Hi 



149 

&H95 

&X10010101 



150 

&H96 

&X10010110 



151 

&H97 

&X10010111 



152 

&H98 

&X1 001 1000 




153 

&H99 

&X1 001 1001 



THTFT 



flWPW 




154 

&H9A 

&X10011010 




155 

&H9B 

&X1 001 1011 



I I I ~~~~ 




I I I 


■■■■ 



156 

&H9C 

&X10011100 




157 

&H9D 

&X1 001 1101 




158 

&H9E 

&X10011110 




159 

&H9F 

&X10011111 




in" ■■■! 



160 

&HA0 

&X10100000 



161 

&HA1 

&X1 01 00001 



162 

&HA2 

&X10100010 



in 



■Jn"S 




■iiii 




163 

&HA3 

&X1 0100011 




164 

&HA4 

&X10100100 




165 

&HA5 

&X10100101 




166 

&HA6 

&X10100110 



167 

&HA7 

&X10100111 




168 
&HA8 
&X101 01000 




ie 

&HA9 
&X10101001 




170 

&HAA 

&X10101010 




171 

&HAB 

&X10101011 




172 

&HAC 

&X10101100 



mm 

m 



173 

&HAD 

&X10101101 




177 

&HB1 

&X1 01 10001 




174 

&HAE 

&X10101110 




178 

&HB2 

&X 101 10010 




175 

&HAF 

&X10101111 



iEffl 



e 




179 

&HB3 

&X10110011 




176 

&HB0 

&X1 01 10000 



H 




180 
&HB4 
&X101 10100 




181 

&HB5 

&X10110101 



Pffl 1 




182 

&HB6 

&X10110110 




183 

&HB7 

&X10110111 



I 



Pf 



i i i i i i i i 

184 

&HB8 

&X10111000 



185 
&HB9 
&X101 11001 



m 




ihhH-lf 

m 




Smff 


M 


Inju II 



186 
&HBA 
&X101 11010 



187 

&HBB 

&X10111011 



188 
&HBC 
&X101 11100 




189 

&HBD 

&X10111101 



193 

&HC1 

&X1 1000001 




197 

&HC5 

&X1 1000101 



■■■!■■■ 

■■■■XB" 


■■■ 


■ 


■ 


J P 


I ■■ 


■ 


■ 


■ I I 




■ 


■ 


■ 


■ _ 




■ 


■ 


■ 


■ ■ 


■■■TT 


E 




■ ■ 

■ ■ 



201 

&HC9 

&X1 1001 001 



n 



205 

&HCD 

&X11001101 




190 

&HBE 

&X10111110 



■ ■ 



194 

&HC2 

&X1 1000010 



-ttFBW-FI 



198 

&HC6 

&X11000110 




202 

&HCA 

&X1 1001 010 




206 

&HCE 

&X11001110 




191 

&HBF 

&X10111111 



EHK=!: 



195 

&HC3 

&X1 1000011 




199 

&HC7 

&X1 10001 11 



5SM 

203 

&HCB 

&X 11001011 




207 

&HCF 

&X11001111 



II 



192 

&HC0 

&X 11 000000 



SSH 






196 

8iHC4 

&X 11 0001 00 




200 

&HC8 

&X1 1001 000 




204 

&HCC 

&X11001100 




208 

&HD0 

&X1 1010000 



Wn 


!■■■■■ 


■■: 




m 



209 

&HD1 

&X1 1010001 



210 

&HD2 

&X1 101 0010 



211 

&HD3 

&X11010011 



212 

&HD4 

&X11010100 




213 

&HD5 

&X11010101 



aw na 



214 

&HD6 

&X11010110 



215 

&HD7 

&X1 10101 11 




216 

&HD8 

&X11011000 





217 


218 


&HD9 


&HDA 


&X1 101 1001 


&X11011010 



■ 



219 

&HDB 

&X11011011 



wT 



220 

&HDC 

&X11011100 



■ 



» 



225 

&HE1 

&X1 1100001 





■■■!■■■■ 



226 

&HE2 

&X1 11 00010 




221 


222 


223 


&HDD 


&HDE 


&HDF 


&X1 101 1101 


&X11011110 


&X11011111 




227 

&HE3 

&X1 11 00011 



inw 



224 

&HE0 

&X1 1100000 




228 

&HE4 

&X1 1100100 




229 

&HE5 

&X1 1100101 




230 

&HE6 

&X11100110 




J II II 


~5S 







231 

&HE7 

&X1 11001 11 



232 

&HE8 

&X11101000 




233 
&HE9 
&X11 101001 




234 

&HEA 

&X11101010 





235 

&HEB 

&X1 1101011 



236 

&HEC 

&X11101100 



237 

&HED 

&X1 1101 101 



238 

&HEE 

&X11101110 






239 

&HEF 

&X11101111 




240 

&HF0 

&X11110000 




241 

&HF1 

&X1 11 10001 




242 

&HF2 

&X1 11 10010 



■■■■:■■ 
■■■■■■■ 




243 


244 


&HF3 


&HF4 


&X11110011 


&X11110100 



FfflTffi 




245 

&HF5 

&X1 11 10101 



M I I I I I I 


■ 


i 








_i_ 



246 

&HF6 

&X11110110 





247 

&HF7 

&X11110111 



248 
&HF8 
&X111 11000 







249 

&HF9 

&X11111001 



250 

&HFA 

&X11111010 



251 

&HFB 

&X11111011 



252 

&HFC 

&X11111100 




F5L 

Si 





253 


254 


255 


&HFD 


&HFE 


&HFF 


&X11111101 


&X11111110 


&X11111111 



Partie 4 : References des touches 



Valeurs ASCII par defaut 



o> 




<o 



0[f] 
0SHS 



^ 



DOQ 



S^5 



tW? 



S8g 



S3 



ouu 
or<o 



*S8 



52552 



[lZu. 
coe>i 

UJUJ 

5^55 

LULULLl 

eVKMCJ 

8SS 

588 


1 


[fl 

88 



55s 



s&5 



ss 



59 



S 



D 

~) 
LU 

Q 

LU 

I- 
LU 



D 

LU 

""> 
LU 

Q 

LU 

H 
I- 

LU 

















~<O<O<0 

EoTt<o 






<o CO 

CM CO 


10 m 

CM CO 


CM 
CC O 5t<0 

1- 










CMCMCM 











0)0) 

00 




















moo 
00 


OO 


CM 

a: CO CO 
pLOLO 


















00 00 
OO 






£§S gSS §gg |88 



bw*| 




COCOCT 




888 




8S8 



Touches programmables, valeurs et 
emplacements par defaut 



LU 
Q 


' ENTER 


LL 

X 




DC 

d 

B 








1 1 


g B 
g S 

b0 
00 
00 









m 

00 


m 


S0 

«* r-, fQl ■— ' 






*w 


« 








< 


N 




Rn 


c/)*: 


LL 




[ffl 


CD 
< 

1- 


53 


X 





TOUCHES 
PROGRAM- 
MABLES 


VALEUR PAR DEFAUT 


CARACTERE 


VALEUR ASCII 


0(128) 

1(129) 

2(130) 

3(131) 

4(132) 

5(133) 

6(134) 

7(135) 

8(136) 

9(137) 

10(138) 

11(139) 

12(140) 



1 
2 
3 
U 
5 
6 
7 
8 
9 

[ENTER] 

RUN "[ENTER] 


&30 
&31 
&32 
&33 
&34 
&35 
&36 
&37 
&38 
&39 
&2E 
&0D 
&52&55&4E&22&0D 


Remarque : La valeur par defaut des touches program- 
mables 13 a 431 (141 a 159) est eg ales a 0. Des valeurs 
et des touches leur sont affectees a I'aide des com- 
mandos KEY et KEYDEF respect ivement. 



Numeros des touches et des positions des manettes de jeu 



o 


^ 


(M 


CD 


00 



0000 
0000 
0000 



















S2 




cm 






CO 










r- 

10 
CM 








<* 

CM 




CM 
CM 








CD 
CO 

If) 
<* 




CO 
CM 

5 


If) 
CM 


8 








CM 
CO 

CO 
CO 

5 




r- 
CO 

8 




CO 

If) 

CO 


CM 


$ 


CO 




00 
CD 




to 

Lf) 
If) 

CM 
CO 

12 




If) 

s 




CN 
Lf) 

CO 
Lf) 

5 

s 
s 




8 

in 
if> 

CO 

s 


8 


O) 

Lf) 




















IB 




Si 




8 





















D 

LU 

"5 
LU 

Q 

LU 

I- 
I- 
LU 

z 
< 



o 

D 



LU 

G 

LU 

t 

LU 

z 
< 







LO 




















E in 






00 


O) 


CM 

e£ 




















o 

LO 











£ 




















e£ 






P! 


[5 


CM 

1- 




















S 







Partie 5 : Les sons 



Notes et periodes sonores 

La table suivante donne les periodes sonores pour les notes de la gamme complete de huit 
octaves. 

La frequence produite n'est pas totalement exacte car elle est calculee a partir d'un nom- 
bre entier. L'erreur relative s'obtient en calculant le pourcentage de la difference entre la 
frequence theorique et la frequence reelle par rapport a la frequence reelle. 



NOTE 


FREQUENCE 


PERIODE 


ERREUR RELATIVE 


C 


32.703 


3822 


-0.007% 


C# 


34.648 


3608 


+0.007% 


D 


36.708 


3405 


-0.007% 


D# 


38.891 


3214 


-0.004% 


E 


41.203 


3034 


-ivm °"- * 


F 


43.654 


2863 


F# 


46.249 


2703 


+0.009% 


G 


48.999 


2551 


-0.002% 


G# 


51.913 


2408 


+0.005% 


A 


55.000 


2273 


+0.012% 


A# 


58.270 


2145 


-0.008% 


B 


61.735 


2025 


+0.011% 


NOTE 


FREQUENCE 


PERIODE 


ERREUR RELATIVE 


C 


65.406 


1911 


-0.007% 


C# 


69.296 


1804 


+0.007% 


D 


73.416 


1703 


+0.022% 


D# 


77.782 


1607 


-0.004% 


E 


82.407 


1517 


+0.009% 


F 


87.307 


1432 


+0.019% Octave -2 


F# 


92.499 


1351 


-0.028% 


G 


97.999 


1276 


+0.037% 


G# 


103.826 


1204 


+0.005% 


A 


110.000 


1136 


-0.032% 


Aft 


116.541 


1073 


+0.039% 


B 


123.471 


1012 


-0.038% 





NOTE 


FREQUENCE 


PERIODE 


ERREUR RELATIVE 


C 


130.813 


956 


+0.046% 


c# 


138.591 


902 


+0.007% 


D 


146.832 


851 


-0.037% 


D# 


155.564 


804 


+0.058% 


E 


164.814 


758 


-0.057% -. , 


F 


174.614 


716 


+ 0.019% Octave -1 


F# 


184.997 


676 


+0.046% 


G 


195.998 


638 


+0.037% 


G# 


207.652 


602 


+0.005% 


A 


220.000 


568 


-0.032% 


A# 


233.082 


536 


-0.055% 


B 


246.942 


506 


-0.038% 


NOTE 


FREQUENCE 


PERIODE 


ERREUR RELATIVE 


C 


261.626 


478 


+ 0.046% Do medium 


c# 


277.183 


451 


+0.007% 


D 


293.665 


426 


+0.081% 


D# 


311.127 


402 


+0.058% 


E 


329.628 


379 


ll'.WX Octave 


F 


349.228 


358 


F# 


369.994 


338 


+0.046% 


G 


391.995 


319 


+0.037% 


G# 


415.305 


301 


+0.005% 


A 


440.000 


284 


-0.032% A international 


A# 


466.164 


268 


-0.055% 


B 


493.883 


253 


-0.038% 


NOTE 


FREQUENCE 


PERIODE 


ERREUR RELATIVE 


C 


523.251 


239 


+0.046% 


c# 


554.365 


225 


-0.215% 


D 


587.330 


213 


+0.081% 


D# 


622.254 


201 


+0.058% 


E 


659.255 


190 


+0.206% 


F 


698.457 


179 


+ 0.019% Octave 1 


F# 


739.989 


169 


+0.046% 


G 


783.991 


159 


-0.277% 


G# 


830.609 


150 


-0.328% 


A 


880.000 


142 


-0.032% 


A# 


932.328 


134 


-0.055% 


B 


987.767 


127 


+0.356% 





NOTE 


FREQUENCE 


PERIODE 


ERREUR RELATIVE 


C 


1046.502 


119 


-0.374% 


C# 


1108.731 


113 


+0.229% 


D 


1174.659 


106 


-0.390% 


D# 


1244.508 


100 


-0.441% 


E 


1318. 5ie 


95 


+0.206% 


F 


1396.913 


89 


-0.543% Octave 2 


F# 


1479.978 


84 


-0.548% 


G 


1567.982 


80 


+0.350% 


G# 


1661.219 


75 


-0.328% 


A 


1760.000 


71 


-0.032% 


A# 


1864.655 


67 


-0.055% 


B 


1975.533 


63 


-0.435% 


NOTE 


FREQUENCE 


PERIODE 


ERREUR RELATIVE 


C 


2093.004 


60 


+0.462% 


C# 


2217.461 


56 


-0.662% 


D 


2349.318 


53 


-0.390% 


D# 


2489.016 


50 


-0.441% 


E 


2637.021 


47 


-0.855% 


F 


2793.826 


45 


-§!548% **"» 


F# 


2959.955 


42 


G 


3135.963 


40 


+0.350% 


G# 


3322.438 


38 


+0.992% 


A 


3520.000 


36 


+1.357% 


A# 


3729.310 


34 


+1.417% 


B 


3951.066 


32 


+1.134% 


NOTE 


FREQUENCE 


PERIODE 


ERREUR RELATIVE 


C 


4186.009 


30 


+0.462% 


C# 


4434.922 


28 


-0.662% 


D 


4698.636 


27 


+1.469% 


D# 


4978.032 


25 


-0.441% 


E 


5274.041 


24 


+1.246% 


F 


5587.652 


22 


:i:548% 0ctave4 


F# 


5919.911 


21 


G 


6271.927 


20 


+0.350% 


G# 


6644.875 


19 


+0.992% 


A 


7040.000 


18 


+1.357% 


A# 


7458.621 


17 


+1.417% 


B 


7902.133 


16 


+1.134% 



Ces valeurs sont toutes calculees a partir du LA International comme suit : 



FREQUENCE = 
PERIODE = 



440*(2t(OCTAVE+( (N-1BW12) ) ) 
ROUNDU25000/FREQUENCE) 



oii N est egal a 1 pour do, 2 pour do diese, 3 pour r6, etc. 



Partie 6 : Messages d'erreur 



1 Unexpected NEXT (NEXT inattendu) 

Une commande N EXT a ete rencontree sans que la commande FOR n'ait lance de boucle 
ou bien la variable suivant NEXT ne correspond pas a celle de la boucle FOR. 

2 Syntax Error (erreur de syntaxe) 

Le BASIC ne comprend pas la ligne a cause d'une construction non permise (tres souvent 
une faute de frappe). 

3 Unexpected RETURN (RETURN inattendu) 

Une commande RETURN survient sans qu'il y ait de sous-programme en cours. 

4 DATA exhausted (il n'y a plus de donnees (DATA)) 
Une commande READ a essaye de lire une ligne de DATA epuisee. 

5 Improper argument (argument incorrect) 

Erreur d'ordre general. L'argument d'une fonction ou le parametre d'une commande 
n'est pas acceptable. 

6 Over-flow (depassement ari thmeti que) 

Se produit lorsqu'une operation arithmetique depasse les limites. Le chiffre en virgule 
flottante est devenu trop grand (superieur a 1.7E|38) ou a fait I'objet d'une tentative de 
conversion en un nombre entier trop grand. 

7 Memory full (memoire saturee) 

Le programme ou ses variables sont trop grands pour la memoire ou la structure des 
boucles est trop compliquee (trop de GOSUB, WHILE et FOR imbriques), 

A chaque fichier ouvert est affecte un tampon de memoire, ce qui peut etre une cause de 
limitation pour la commande MEMORY. 



8 Line does not exist (ligne inexistante) 
Le numero de ligne reference n'existe pas en memoire. 

9 Subscript out of range (indice hors limite) 

Un des indices de votre tableau est trop grand ou trop petit. 

10 Array already dimensioned (tableau deja dimensionne) 

Un des tableaux d'une instruction DIM a deja ete defini. 

11 Division by zero (envision par zero) 
L'ordinateur n'aime pas diviser par zero, que ce soit reel, entier, etc... 

12 Invalid direct command (commande directe non valable) 
La commande n'est pas acceptable en mode direct. 

13 Type mismatch (types de variable ne correspondant pas) 

On a donne une valeur numerique pour une chaine alphanumerique ou vice-versa ou un 
nombre non valable a ete decouvert par une commande READ ou INPUT. 

14 String space full (espace reserve aux chaines sature) 
II y a tellement de chaines qu'il n'y a plus de place, meme apres une remise en ordre. 

15 String too long (chaine trop longue) 

Une chaine a plus de 255 caracteres, ce qui peut arriver lors d'une concatenation de 
chaines. 

16 String expression too complex (chaine trop compliquee) 

Des expressions de chaines peuvent produire des valeurs intermediates qui, si elles sont 
trop nombreuses, conduisent le BASIC a donner ce message. 



17 Cannot CONTinue (on ne peut pas CONTinuer) 

Le programme ne peut pas poursuivre son execution avec CO NT, qui sert apres une com- 
mande STOP, [ESC] [ESC] ou une erreur. Notez que si le programme a ete modifie 
entre-temps, il est impossible de le relancer par cette commande. 

18 Unknown user -function (fonction inconnue au bataillon) 
On a oublie de definir la fonction FN avec la commande DEF FN auparavant. 

19 RESUME missing (commande RESUME absente) 

On a trouve la fin de programme alors que celui-ci procedait a un traitement d'erreur (a 
la suite d'une declaration ON ERROR GOTO). 

20 Unexpected RESUME (RESUME inattendu) 

On tombe sur une commande RESUME sans etre dans un sous-programme de type ON 
ERROR GOTO. 

21 Direct command found (commande directe tombant du ciel!) 
En chargeant un programme, une ligne sans numero s'est presentee. 

22 Operand missing (operande absent) 
Le BASIC vient de tomber sur une expression incomplete. 

23 Line too long (ligne trop iongue) 
Le BASIC n'accepte pas les lignes de plus de 255 caracteres. 

24 EOF met (rencontre d'une fin de fichier) 

EOF = End Of File = fin de fichier ; le programme a effectue une tentative de lecture 
apres une fin de fichier. 

25 File type error (erreur dans le type de fichier) 

Le fichier n'est pas du type requis. OPENIN peut seulement ouvrir des fichiers de texte 
ASCII. LOAD, RUN, etc., ne fonctionnent qu'avec des fichiers produits par SAVE. 



26 NEXT missing (NEXT manquant) 

On ne peut pas trouver le NEXT qui corresponde a une commande FOR. 

27 File already open (fichier deja ouvert) 

Une commande OPENIN ou OPENOUT est executee avant que le fichier deja ouvert 
n'ait ete ferme. 

28 Unknown command (commande inconnue) 

Le BASIC ne trouve pas de references a cette commande externe. 

29 WEND missing (WEND manquant) 

La boucle commencee par WHILE n'est pas terminee par WEND. 

30 Unexpected WEND (wend inattendu) 

Un WEND est decouvert en dehors d'une boucle WHILE, ou un WEND ne correspond 
pas au WHILE de la boucle. 

31 File not open (-fichier non ouvert) 
(Voir paragraphe ci-dessous, « Erreurs de disquette ».) 

32 Broken in (interrompu) 

(Voir paragraphe ci-dessous, « Erreurs de disquette ».) 



Erreurs sur disquette 

Plusieurs erreurs peuvent se produire lors du traitement des operations d'archivage. Bien 
que le BASIC les regroupe sous le numero d'ERReur 32, vous pouvez obtenir de plus 
amples informations en appelant la fonction DERR. Voici la signification des valeurs 
qu'elle renvoie : 



Erreur AMSDOS 


Valeur DERR 


Source de l'erreur 





Oou 22 


Activation de [ESC]. 


14 


142(128 + 14) 


Etat du canal non valable. 


15 


143(128 + 15) 


Fin de fichier materielle. 


16 


144(128 + 16) 


Mauvaise commande, generalement 
nom de fichier incorrect. 


17 


145(128 + 17) 


Fichier deja existant. 


18 


146(128 + 18) 


Fichier non existant. 


19 


147(128 + 19) 


Catalogue sature. 


20 


148(128 + 20) 


Disquette pleine. 


21 


149(128 + 21) 


Changement de la disquette avec 
fichiers ouverts. 


22 


150(128 + 22) 


Fichier en lecture seulement. 


26 


154(128 + 26) 


Fin de fichier logicielle. 



Si AMSDOS a deja rapporte une erreur, le bit 7 a pris la valeur 1, decalant celle de DER R 
de 128. 

Les autres valeurs rapportees par DERR proviennent du controleur de la disquette, le bit 
6 etant toujours sur 1. Le bit 7 indique si AMSDOS a rapporte Terreur ou non (voir ci- 
dessus). Void la signification de chacun des bits : 



Bit 


Signification 




1 
2 


Adresse manquante. 

Ecriture impossible. Disquette protegee. 

Pas de donnee. Secteur introuvable. 


3 
4 
5 
6 

7 


Unite non prete. Pas de disquette dans 1'unite. 

Surcharge. 

Erreur de donnee. Erreur CRC (cyclic redundancy check). 

Toujours a 1 pour indiquer une erreur venant du controleur de 

disquette. 

Sur 1 si AMSDOS a deja rapporte Ferreur. 



ERR peut envoyer 31 si vous avez tente l'acces a une disquette sans aucun fichier ouvert. 
Une procedure classique d' utilisation de ERR et DERR consiste a inclure l'instruction 
ON ERROR GOTO afin d'appeler un sous-programme determinant la valeur (31 ou 
32) de ERR puis, en cas d'erreur 32, utilisant l'indicateur DERR pour afficher la nature 
exacte de Ferreur. Par exemple : 

10 ON ERROR GOTO 1000 
20 OPENOUT "manfich.asc" 
30 WRITE #9,"donnee-test" 
40 CLOSEOUT 
50 END 

1000 amsdoserr=(DERR AND &7F ) : REM bit 7 force a 
1010 IF ERR<3t THEN END 

1020 IF ERR=31 THEN PRINT "etes-vous sur d'avoir tape la lig 
ne 20 ?":END 

1030 IF amsdaserr=20 THEN PRINT "II n ? y a plus de place sur 
la disquette M :END 

1040 IF amsdaserr=&X1000010 THEN PRINT M placez une disquette 
non protegee dans I'unite, puis appuyez sur n'importe q 
uelle touche ":WHILE INKEY$= n " : WEND: RESUME 
1050 END 

Partie 7 : Mots cles du BASIC 
(egalement appeles mots reserves) 

Void une liste de mots cles du BASIC AMSTRAD CPC664. lis sont reserves et ne peu- 
vent etre utilises comme variables. 

ABS, AFTER, AND, ASC, ATN, AUTO 

BIN*, BORDER 

CALL, CAT, CHAIN, CHR$, CINT, CLEAR, CLS, CLOSEIN, 
CLOSEOUT, CLS, CONT, C0PYCHR$, COS, CREAL, CURSOR 

DATA, DEC*, DEF, DEFINT, DEFREAL, DEFSTR, DEB, DELETE, 
DERR, DI, DIM, DRAW, DRAWR 

EDIT, EI, ELSE, END, ENT, ENV, EOF, ERASE, ERL, ERR, 
ERROR, EVERY, EXP 

FILL, FIX, FN, FOR, FRAME, FRE 



GOSUB, GOTO, GRAPHICS 

HEX$, HIMEM 

IF, INK, INKEY, INKEY*, INP, INPUT, INSTR, INT 

JOY 

KEY 

LEFT$, LEN, LET, LINE, LIST, LOAD, LOCATE, LOG, LOG10 
LOWER* 

MASK, MAX, MEMORY, MERGE, MIDI, MINI, MOD, MODE, MOVE, 
MOVER 

NEXT, NEW, NOT 

ON, ON BREAK, ON ERROR GOTO 0, ON SQ, OPENIN, OPENOUT, 
OR, ORIGIN, OUT 

PAPER, PEEK, PEN, PI, PLOT, PLOTR, POKE, POS, PRINT 

RAD, RANDOMIZE, READ, RELEASE, REM, REMAIN, RENUM, 
RESTORE, RESUME, RETURN, RIGHT*, RND, ROUND, RUN 

SAVE, SGN, SIN, SOUND, SPACE*, SPC, SPEED, SQ, SQR, 
STEP, STOP, STR*, STRING*, SWAP, SYMBOL 

TAB, TAG, TAGOFF, TAN, TEST, TESTR, THEN, TIME, TO, 
TROFF, TRON 

UNT, UPPER*, USING 

VAL, VPOS 

WAIT, WEND, WHILE, WIDTH, WINDOW, WRITE 

XOR, XPOS 

YPOS 

ZONE 



Partie 8 : Grilles 



Grille pour textes et fenStres d'ecran - MODE (20 colonnes) 
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Grille pour textes et fenStres d'ecran - MODE 1 (40 colonnes) 
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Grille pour textes et fenetres d'ecran - MODE 2 (80 colones) 
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Enveloppe des sons/Grille de musique 




o o> e%. r- <a in 



Partie 9 : Connexions 



Entrees/Sorties du CPC664 




PRISE DEL-UNITE 
DEDISQUETTE2 



PRISE MONITEUR 



pot 



t t t 



PRISE POUR LECTEUR 
DE CASSETTE 



PRISE D'IMPRIMANTE 



PRISE STEREO 



PRISE 12 VCC PRISE D'EXTENSION 



PRISE POUR MANETTE DE JEU 



Prise de manette de jeu 











VUEARRltRE 






1 




2 


3 


4 






• 




• 


• 


• 




• 




• 


• 




• 


• 


j 


k 


6 


7 




8 


9 


J 







BROCHE 1 

BROCHE 2 

BROCHE 3 

BROCHE 4 

BROCHE 5 



HAUT 

BAS 

GAUCHE 

DROITE 

RESERVE 



BROCHE 6 FEU2TIR 

BROCHE 7 FEU 1 TIR 

BROCHE 8 COMMUN 

BROCHE 9 COM2 



Prise moniteur 



VUE ARRIERE 




BROCHE 1 ROUGE 
BROCHE 2 VERT 
BROCHE 3 BLEU 



BROCHE 4 SYNC 
BROCHE 5 MASSE 
BROCHE 6 LUM 



Prise stereo 



DROIT 



IX) 



MASSE 



GAUCHE 



/v 



V 



-GAUCHE 
- DROIT 
MASSE 



BROCHE 1 TELECOMMANCE 
BROCHE 2 MASSE 
BROCHE 3 TELECOMMANDE 



BROCHE 4 DONNEES ENTRANTES 
BROCHE 5 DONNEES SORTANTES 



Prise de lecteur de cassette 



VUEARRIERE 







BROCHE 1 CANAL GAUCHE 
BROCHE 2 CANAL DROIT 
BROCHE 3 MASSE 



Prise d'extension 



VUEARRltRE 



49 47 45 43 41 39 37 35 33 31 29 27 25 23 21 19 17 15 13 11 9 7 5 3 1 



E 



50 48 46 44 42 40 38 36 34 32 30 28 26 24 22 20 18 16 14 12 10 8 6 4 2 

















PIN 


1 


SOUND 


PIN 18 


AO 


PIN 35 


INT 


PIN 


2 


GND 


PIN 19 


D7 


PIN 36 


NMI 


PIN 


3 


A15 


PIN 20 


D6 


PIN 37 


BUSR2 


PIN 


4 


A14 


PIN 21 


D5 


PIN 38 


BUSAK 


PIN 


5 


A13 


PIN 22 


D4 


PIN 39 


READY 


PIN 


6 


A12 


PIN 23 


D3 


PIN 40 


BUS RESET 


PIN 


7 


A11 


PIN 24 


D2 


PIN 41 


RESET 


PIN 


8 


A10 


PIN 25 


D1 


PIN 42 


ROMEN 


PIN 


9 


A9 


PIN 26 


DO 


PIN 43 


ROMDIS 


PIN 


10 


A8 


PIN 27 


+ 5v 


PIN 44 


RAMRD 


PIN 


11 


A7 


PIN 28 


MREQ 


PIN 45 


RAMDIS 


PIN 


12 


A6 


PIN 29 


M1 


PIN 46 


CURSOR 


PIN 


13 


A5 


PIN 30 


RFSH 


PIN 47 


L PEN 


PIN 


14 


A4 


PIN 31 


IORQ 


PIN 48 


EXP 


PIN 


15 


A3 


PIN 32 


RD 


PIN 49 


GND 


PIN 


16 


A2 


PIN 33 


WR 


PIN 50 


<P 


PIN 


17 


A1 


PIN 34 


HALT 







Prise de l'unite de disquette 2 



VUEARRlERE 



2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 



PIN1 




PIN 18 


GND 


READY 


PIN 2 


GND 


PIN 19 


MOTOR ON 


PIN 3 


SIDE 1 SELECT 


PIN 20 


GND 


PIN 4 


GND 


PIN 21 


N/C 


PIN 5 


READ DATA 


PIN 22 


GND 


PIN 6 


GND 


PIN 23 


DRIVE SELECT 1 


PIN 7 


WRITE PROTECT 


PIN 24 


GND 


PINS 


GND 


PIN 25 


N/C 


PIN 9 


TRACK 


PIN 26 


GND 


PIN 10 


GND 


PIN 27 


INDEX 


PIN 11 


WRITE GATE 


PIN 28 


GND 


PIN 12 


GND 


PIN 29 


N/C 


PIN 13 


WRITE DATA 


PIN 30 


GND 


PIN 14 


GND 


PIN 31 


N/C 


PIN 15 


STEP 


PIN 32 


GND 


PIN 16 


GND 


PIN 33 


N/C 


PIN 17 


DIRECTION SELECT 


PIN 34 


GND 



Porte pour imprimante 



VUEARRItRE 

17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 

*— ■ *— » ' ■ *—* < ~"~ > ' » *~~~ t t ~~" t *~~ l l ~~ t ' » r—~* i » J * r—t i i l— n. 

35 34 33 32 31 30 29 28 27 26 25 24 23 22 21 20 19 



PIN 1 




PIN 19 GND 


STROBE 


PIN 2 


DO 


PIN 20 GND 


PIN 3 


D1 


PIN 21 GND 


PIN 4 


D2 


PIN 22 GND 


PIN 5 


D3 


PIN 23 GND 


PIN 6 


D4 


PIN 24 GND 


PIN 7 


D5 


PIN 25 GND 


PIN 8 


D6 


PIN 26 GND 


PIN 9 


GND 


PIN 27 GND 


PIN 11 


BUSY 


PIN 28 GND 


PIN 14 


GND 


PIN 33 GND 


PIN 16 


GND 


Autres broches : NC 



Partie 10 : Imprimante 
Interface 



Le CPC664 peut etre connecte a une imprimante standard compatible Centronics. 

Le cable de Timprimante est une simple connexion entre la prise PRINTER situee a Tar- 
riere de Tordinateur et le connecteur de rimprimante parallele. Le circuit imprime de l'or- 
dinateur presente deux contacts de moins que le connecteur de rimprimante. Ceci permet 
l'utilisation d'un connecteur standard pour circuit imprime. 

La partie 9 de ce chapitre illustre en detail la configuration des broches. 

Le cable doit permettre la connexion de la broche 1 de Tordinateur a la broche 1 de rim- 
primante ; de la broche 19 de Tordinateur a la broche 19 de Timprimante, etc. Toutefois, 
les broches 18 et 36 de Timprimante de doivent pas etre connectees a Tordinateur. 



Bien que la rangee superieure de la prise PRINTER comporte 17 pattes, le numero de la 
premiere patte de la rangee inferieure est 19 (et non pas 18). De cette maniere, chaque 
broche de l'imprimante se trouve reliee a la piste du connecteur plat de l'ordinateur por- 
tant exactement le meme numero qu'elle. 

La synchronisation de l'ordinateur a rimprimante s'effectue par l'intermediaire du signal 
BUSY (broche 11). Si l'imprimante n'est pas en fonction, l'ordinateur reste en attente. 

On obtient la sortie sur l'imprimante en envoy ant les donnees sur le canal # 8. 

Le port d'impression du CPC664 est congu pour recevoir un modele d'imprimante matri- 
cielle bon marche. Nanti d'une interface parallele standard, il vous sera toutefois possible 
de doter votre ordinateur d'une imprimante a marguerite, d'une table tra$ante ou d'une 
imprimante polychrome a jet d'encre. 

L'imprimante AMSTRAD DMP1 dispose d'un programme specialise facilitant l'impres- 
sion graphique comme la recopie d'ecran. 

Configuration de rimprimante 

Un dispositif permet l'impression des caracteres speciaux affichables a 1'ecran et acceptes 
par rimprimante, en depit de la difference du code utilise dans l'un et l'autre cas. La plu- 
part de ces caracteres ne peuvent etre obtenus que dans Tun des modes d'impression inter- 
nationaux de la DMP1. 

Ainsi : 

PRINT CHR$(&A0) 

...fait apparaitre a 1'ecran \ tandis qu'avec : 
PRINT «B.CHR$(kA0) 



A 



...on obtient " sur l'imprimante (alors que sur la DMP1, l'accent circonflexe est code 
&5E). En d'autres termes, le programme d'impression identifie &AO comme un code 
faisant partie de sa table de conversion et lui substitue &5E, afin que le caractere imprime 
corresponde bien a celui qu'affiche 1'ecran. Quel que soit le mode linguistique choisi, le 
code &5E correspond toujours a l'accent circonflexe de la DPMI, ce qui n'est pas le cas 
pour tous les caracteres contenus dans la table de conversion. Voici les autres caracteres 
que contient la table de conversion : 



CHR$ 


Caractere a 
l'ecran 


Transcodage 
rimprimante 


GB 


U.S.A. 


France 


Allemagne 


Espagne 


&A0 


A 


&5E 


A. 


A 


A 


A 


A 


&A2 


■ . 


&7B 


1 


JL 
t 


j. 

1 


jl 
t 


■ ■ 


&A3 


£ 


&23 


£ 


u 


U 


# 


Pt 


&A6 


§ 


&40 


t 


JL 

t 


t 


§ 


i 


&AE 


i 


&5D 


X 

t 


1 


t 


JL 

1 


6 


&AF 


i 


&5B 


JL 

t 


j. 

t 


1 


J. 
t 


i 



Pour le caractere imprime, se reporter a la page 18 du manuel d'instruction de la DMP1. 



La liste ci-dessus est extraite de la table des conversions par defaut. Pour les redefinir, 
consulter le manuel de microprogrammation (SOFT 946). 



Partie 11 : Les manettes de jeu 



Le systeme d'exploitation du CPC664 prevoit Futilisation d'une ou de deux manettes de 
jeu. Au meme titre que les touches du clavier, ces manettes peuvent etre interrogees au 
moyen des instructions IN KEY et INKEY$. Le bouton de commande principal de votre 
manette correspond le plus souvent a « Fire 2 ». II est possible d'interroger directement 
la premiere et la seconde manette a l'aidc des fonctions JOY(0) et JOY(1 ). La fonction 
JOY renvoie un nombre dont la signification n'apparait qu'en binaire, indiquant l'etat 
des interrupteurs des manettes de jeu lors de la derniere interrogation du clavier, 

Le tableau ci-dessous donne les valeurs transmises par les deux manettes. Dans la partie 
gauche figurent les valeurs obtenues par la fonction JOY et, dans la partie droite, celles 
a utiliser dans des expressions prenant les codes du clavier comme parametres (fonctions 
INKEYetKEYDEF). 



MANCEUVRE 


Fonction JOY 


VALEURS « CLAVIER » 


Haut 

Bas 

Gauche 

Droite 

Tir2 

Tirl 


BIT 


VALEUR 
RENVOYEE 


PREMIERE 
MANETTE 


SECONDE TOUCHE 
MANETTE CORRESP. 



1 

2 
3 
4 

5 


1 

2 
4 
8 
16 
32 


72 
73 
74 
75 
76 
77 


48 6 

49 5 

50 R 

51 T 

52 G 

53 F 



Vous constatez que l'ordinateur assimile les valeurs renvoyees par la seconde manette a 
celles provenant des touches correspondantes du clavier (derniere colonne du tableau). II 
est done possible d'utiliser le clavier comme deuxieme manette de jeu. 



Partie 12 : Les formats de disquettes 



Le BIOS prend en charge trois formats de disquettes differents : les formats SYSTEM, 
DATA ONLY et IBM. Lorsqu'un systeme fonctionnant sous AMSDOS accede a une 
disquette ne comportant auoun fichier ouvert, il en detecte automatiquement le format. 
Chaque format est dote a cette fin d'une numerotation de secteurs specifique. 

Bien que les disquettes « 3 pouces » soient a double face, seule la face superieure est acces- 
sible par l'unite. Les deux faces peuvent etre de format different. 



Caracteristiques communes a tous les formats 

Simple face (les deux faces d'une disquette « 3 pouces » etant enregistrees separement) 
Taille d'un secteur physique : 512 octets. 
40 pistes numerotees de a 39. 
Taille du bloc CP/M : 1024 octets. 
Repertoire : 64 entrees. 



Le format SYSTEM 

9 secteurs par piste, numerotes de &41 a &49. 
2 pistes reservees. 

Le chargement du CP/M (arnorQage a froid ou a chaud) n'etant possible qu'a partir d'une 
disquette de format systeme, ce dernier est done le plus commun. Voici l'affectation des 
pistes reservees : 

Piste secteur &41 : amor9age 

Piste secteur &42 : configuration 

Piste secteurs &43 a &47 : inutilises 

Piste secteurs &48 a &49 > rrp Rri n«: 

Piste 1 secteurs &41 a &49 S ^ CF et KUU ^ 

II existe une version du format systeme dans laquelle les pistes reservees ne contiennent 
aucun logiciel : le format VENDOR, destine a la distribution des logiciels d'application. 



Le format DATA ONLY 

9 secteurs par piste, numerotes de &C1 a &C9. 
Aucune piste reservee. 

Ce format a etc mis au point dans la perspective de pr ogres ulterieurs. Son utilisation 
sous CP/M est deconseillee dans la mesure ou il n'autorise pas l'amorcage a chaud. Limite 
a AMSDOS, il permet un leger gain de place sur la disquette. 



Le format IBM 

8 secteurs par piste, numerotes de &1 a &8, 
1 piste reservee. 

En conformite logicielle avec le format « simple face » utilise par CP/M sur 1'IBM PC. Ce 
format est reserve a des applications specialises. 



Partie 13 : La memoire 



Plan dMmplantation en memoire 



AMSDOS < MICROPROGRAMMATION < 
ROM ROM 



&FFFF 



> RAM ECRAN 



ROM BASIC < 



&COOO 
&BFFF 



&???? 



HIMEM 

&4000 
&3FFF 

&OOOO 



> ZONE DE DONNEES DES MICRO- 
PROGRAMMES 

ZONE DE BRANCHEMENTS 
ZONE DE DONNEES BASIC 
ZONE DE DONNEES AMSDOS 
ZONE DE DONNEES DES ROMS 
D'EXTENSION 

> CARACTERES DEFINIS PAR L'UTI- 
LISATEUR 

> ZONE DE PROGRAMMES BASIC 



> ZONE DE PROGRAMMES BASIC 



...ou Tadresse &???? depend des ROMs d'extension (s'il n'y a aucune ROM d'extension, 
cette adresse est &A6FC). 



Entrees/Sorties supplementaires 

Les adresses des ports d'Entree/Sortie sont, pour la plupart, reservees par 1'ordinateur. 
Les adresses inferieures a &7FFF, notamment, sont absolument prohibees. 

Les lignes d'adresses AO a A7 seront affectees a la designation du type de peripherique et 
les lignes A8 et A9 a la selection de Tun des registres du peripherique sollicite. Parmi les 
lignes restantes seul A 10 doit etre decodee (etat bas) alors que les lignes Al 1 jusqu'a A 15 
doivent etre a Tetat haut. Aux registres de chaque peripherique seront ainsi affectees des 
adresses du type &F8??, &F9??, &FA?? et &FB??, ou les deux derniers symboles designe- 
ront soit une interface de communication (de DC a DF) soit tout autre type de peripheri- 
que (de EO a FE). 

On utilisera les instructions Z80 recopiant le registre B dans la moitie superieure du bus 
d'adresses (A 15 a A8). 



ROMs auxiliaires 

II est possible d'adresser des ROMs auxiliaires en plus de la ROM interne. La logique 
d'arbitrage d'adresses et de selection par bloc sera alors situee dans un module connecte 
au bus d'extension, 1'ordinateur fournissant tous les signaux necessaires a ce dernier. 



Chapitre 8 

A vos heures de loisir... 



Ce chapitre aborde en douceur certaines notions fondamentales de l'infor- 
matique en general et du CPC664 en particulier. Bien qu'il ne soit pas 
indispensable de le lire avant d'utiliser votre ordinateur, il pourra vous 
aider a mieux comprendre ce qui se passe « sous le capot ». 



Partie 1 : Generalites 



Feu sur les envahisseurs de l'espace ! 

Meme si votre seule passion des jeux video motive votre achat du CPC664, vous etes peut- 
etre curieux de connaitre ce que recouvrent les termes. Le materiel est constitue de tout 
ce que vous pouvez toucher (le clavier, Pecran, les cables de raccordement, etc.), le reste 
repondant a Tappellation de « logiciel » (programmes, manuels et informations sur dis- 
que ou cassette). 

Certaines actions de Tordinateur dependent du materiel, mais c'est au logiciel de les utili- 
ser pour produire des textes et des graphiques a l'ecran. 

Le materiel dirige le canon a electrons sur Paffichage electroluminescent du moniteur, le 
logiciel ordonne et distribue remission afin de produire des sequences significatives sur 
l'ecran : TefTet de decollage du vaisseau spatial, ou l'apparition d'une lettre a l'ecran lors- 
que vous appuyez sur la touche correspondante du clavier. 

Question : Pourquoi un ordinateur est-il meilleur qu'un autre ? 

Un materiel sans logiciel ne vaut rien, et inversement. II ressort done que la valeur des 
performances d'un ordinateur ne peut venir que de Tintegration harmonieuse des deux, 
permettant de realiser differentes taches. II existe plusieurs moyens de juger les perfor- 
mances logicielles et materielles d'une machine. 



Les criteres generalement admis pour qualifier les ordinateurs personnels sont actuelle- 
ment : 



1. La resolution de 1'ecran : le plus petit element visible de Faffichage 

Elle resulte d'une combinaison d'elements differents : nombre de couleurs disponibles, 
nombre de pixels (petits points), nombre de caracteres de texte definissables par ecran. 
Vous constaterez que le CPC664 dispose de caracteristiques extremement interessantes 
dans ce domaine. 



2. LMnterpreteur BASIC 

Presque tous les ordinateurs familiaux possedent un interpreteur BASIC qui permet de 
se lancer rapidement dans la conception de programmes. Le BASIC integre a la machine 
est lui-meme un programme, mais extremement elabore et complique, ayant necessite des 
millions d'heures de travail pour sa mise au point, depuis son « invention » aux USA. Le 
« Beginners All Purpose Symbolic Instruction Code » (langage symbolique tous usages 
pour debutants) est le plus utilise de Tinformatique personnelle et, comme tous les langa- 
ges, il possede de nombreux « dialectes ». 

Le BASIC disponible sur le CPC664 est Fun des plus compatibles et peut utiliser des pro- 
giciels ecrits sous le systeme d'exploitation de disquette CP/M. C'est une implementation 
tres rapide du BASIC et bien qu'il ne vous semble pas qu'il y ait une grande difference 
entre 0,05 et 0,125 seconde, sur des milliers destructions a traiter, le meme programme 
sera presque trois fois plus rapide d'une version a l'autre. 

Vous entendrez souvent parler de langage machine : c'est le seul langage que la machine 
comprenne directement ; il est tres rapide mais desesperement long a programmer, c'est 
pourquoi on utilise le BASIC couple a un interpreteur pour la traduction en langage 
machine. 



Le BASIC de votre AMSTRAD est un des plus rapides et des plus complets que Ton 
puisse trouver sur un micro familial. II est susceptible de pallier certaines lenteurs inheren- 
tes aux langages de haut niveau et dispose d'effets graphiques et sonores surprenants. 



3. Extension 

La plupart des ordinateurs sont prevus pour recevoir des extensions materielles telles 
qu'imprimantes, manettes de jeu, lecteurs de disquettes supplementaires. Pourtant de 
nombreux micro-ordinateurs familiaux vous obligent a acheter des interfaces d'extension 
avant de pouvoir brancher un dispositif aussi simple qu'une imprimante ou une manette 
de jeu. 

Bien que Tacheteur ne considere pas toujours ses besoins futurs, une machine possedant 
deja une interface pour imprimante (type Centronics) et une interface pour manette de 
jeu est plus economique a long terme. 

Le CPC664 possede d'origine une interface Centronics, une entree pour unite de disquette 
supplemental, une prise pour un lecteur de cassette (et une commande moteur), une 
interface pour deux manettes de jeu, une sortie stereo et un bus d'extension pouvant rece- 
voir des lecteurs de disquettes, des cartouches ROM, une interface serie (RS232), des 
modems, des synthetiseurs de parole, des stylos optiques, etc... 



4. Les effets sonores 

Les caracteristiques sonores en micro-informatique vont du systeme qui fait des bruits 
plus ou moins cacophoniques a celui capable de simuler un instrument de musique 
electronique. Les 3 canaux et 8 octaves du CPC664 lui permettent de produire des sons 
d'une bonne qualite musicale avec controle total de l'amplitude et des enveloppes de tona- 
lite. De plus, remission est authentiquement stereophonique, avec un canal a gauche, un 
a droite et un troisieme au milieu. 

Vous pourrez ainsi produire des ambiances sonores impressionnantes, synchronises avec 
les effets graphiques. 

Finalement, c'est a vous de voir ce qui est le plus important pour vous. Nous sommes 
surs que vous trouverez a votre machine des qualites que nous n'aurions meme pas soup- 
connees. 



Pourquoi un micro ne peut-il pas faire cela ? 

Les utilisateurs se demandent souvent pourquoi un ordinateur ne peut produire des ima- 
ges comme on en voit a la television. Pourquoi, par exemple, un micro ne peut-il animer 
un dessin comme dans un dessin anime ou un film ? Pourquoi les personnages sont-ils 
toujours simplifies ? 

La reponse est simple et complexe a la fois. La reponse simple est que l'ecran d'un ordina- 
teur est beaucoup plus sommaire qu'un ecran TV (meme si Tordinateur utilise un poste 
TV, il n'utilise qu'une partie des circuits). La capacite memoire d'une image retransmise 
a la tele est environ 20 fois plus importante que celle d'un ordinateur. De plus, pour etre 
animes, tous les points de cette image doivent changer 50 fois par seconde. Les ordina- 
teurs capables d'une telle performance sont encore de nos jours hors de portee de bien 
des budgets. 

Les micros doivent se debrouiller avec une memoire relativement petite comparee aux 
mega-ordinateurs. Leurs images sont done plus saccadees et leur resolution d'ecran bien 
moins elevee. Bien que Ton s'en approche un peu plus chaque jour, on est encore assez 
loin des dessins animes qu'on voit a la television. 



Le clavier : un air de deja vu... 

Pourquoi ne peut-on simplement s'asseoir devant un micro et taper une page de texte 
dans la machine ? 

Ne vous laissez pas induire en erreur par le fait qu'un ordinateur ressemble a une machine 
a ecrire avec un ecran ; e'est un appareil qui communique avec vous par 1'intermediaire 
d'un langage de programmation. Et aussi, a moins que vous ne le dotiez d'un progiciel 
de traitement de texte, il vous repondra par le message : 

Syntax error 
...lorsque vous taperez n'importe quelle phrase suivie de [ENTER]. 



Pour taper une phrase puis [ENTER] et attendre de l'ordinateur qu'il se comporte 
comme une feuille de papier electronique dans une machine a ecrire sophistiquee, il faut 
d'abord lui avoir charge un programme lui disant : « nous allons taper une lettre ». 

L'ordinateur semble combiner plusieurs appareils familiers : un ecran de television, un 
clavier de machine a ecrire et un magnetophone a cassette. Vous devez toutefois vous 
rappeler que ces ressemblances sont superficielles, l'ordinateur ayant des capacites d'un 
autre ordre et etant destine a un usage completement different - une personnalite au-dela 
des apparences ! 




Mais qui a peur du jargon informatique ? 

Comme beaucoup d'industries specialises, Tinformatique a developpe son propre jar- 
gon, un moyen rapide de parler de choses compliquees qui demanderaient beaucoup 
duplications en langage courant. Tous les corps de metiers utilisent plus ou moins une 
forme de jargon leur permettant de parler de leur metier de la fagon la plus concise pos- 
sible. 

Une des differences avec le jargon legal, par exemple, est que les confusions de ce dernier 
viennent plus de la fagon dont les mots sont utilises que des mots eux-memes. 

Le jargon informatique utilise des mots simples, empruntes au langage courant (bien sou- 
vent anglophone), pour decrire directement et sans ambiguite les concepts precis de la 
science qu'il sert. Au contraire d'une barriere, il est un outil de communication puissant, 
a rimage des langages de programmation, dont certains seraient tentes d'elever la mai- 
trise au rang d'expression artistique ! 

L'informatique est comprise rapidement par les jeunes qui en apprecient la precision et 
la simplicite. Ne voit-t-on pas plus de programmeurs de 10 ans que d'avocats du meme 
age? 




Bases du BASIC 

Pratiquement tous les micro-ordinateurs familiaux utilisent le langage appele BASIC. II 
est maintenant passe au rang de langage performant destine a la conception de program- 
mes d'une puissance et d'une complexite extreme. 

Son nom reste toutefois synonyme de facilite et guide les debutants de Tinformatique per- 
sonnelle du simple programme a des applications de statistiques elaborees. 

Le BASIC est un langage interactif qui interprete un certain nombre de commandes bien 
definies puis effectue divers traitements sur les donnees qui lui sont fournies. Contraire- 
ment aux langages humains disposant de 5000 a 8000 mots, BASIC se debrouille avec 
environ 200 mots. Les programmes ecrits en BASIC doivent obeir a des regies simples et 
rigides et respecter une syntaxe precise, implacablement sanctionnee par le message : 

Syntax error 

Ce n'est pas aussi contraignant qu'il le semblerait tout d'abord - un simple moyen d'indi- 
quer que l'ordinateur ne comprend pas ce que vous voulez dire (bien souvent par la faute 
d'une virgule ou de guillemets mal places, ou encore d'un O confondu a un (zero)). 
Les ordinateurs sont des machines ne demandant qu'a vous servir, pour peu que vous 
compreniez et respectiez leurs imperatifs de fonctionnement. Ce sont avant tout des 
machines a calculer, pourvues, il est vrai, d'operateurs sophistiques depassant le stade de 
la simple operation arithmetique, mais conservant encore la rigidite inherente au traite- 
ment numerique. 



Des chiffres sMl vous plait... 

Si vous aviez les ceuvres completes de Victor Hugo sur un ordinateur, vous ne trouverez 
pas une seule lettre ou un seul mot dans le systeme : toute donnee, tout renseignement est 
d'abord transforme en chiffres et en nombres avant que Tordinateur ne soit capable de 
les manipuler. 

Le BASIC interprete les mots comme des chiffres afin que Tordinateur puisse les traiter 
a Taide d'additions, de soustractions ou d'operations booleennes. II est aussi a meme de 
comparer ces donnees (tables de verite, oui-non, etc.), de verifier que deux conditions sont 
remplies en meme temps (et, ou inclusif, ou exclusif), etc. 

Grace au programme, Tordinateur divise toute tache en une infinite d'operations « oui- 
non ». 

Un ordinateur ne sait meme pas multiplier directement : pour multiplier 35 par 10, il 
ajoute 35 dix fois de suite. 




Si ce procede vous semble complique vous n'avez pas tout a fait tort. Vous venez meme 
de decouvrir une des verites premieres de la programmation. L'ordinateur est simplement 
une machine accomplissant des taches repetitives extremement vite et avec une precision 
absolue. Le procede qui consiste a traiter des donnees ou 1 est souvent appele numeri- 
que, par opposition au traitement analogique, jouant sur la variation continue du signal 
electronique. 

Mais dans un monde reduit aux deux chiffres, et 1 , comment allons-nous compter ? 



Bits et octets 

Nous sommes habitues au systeme decimal, ou systeme a base 10, qui utilise 10 chiffres 
de a 9. Le systeme qui utilise les 2 chiffres et 1 s'appelle le systeme binaire et les unites 
qui le composent sont des BITS (pour Binary diglTS). 

7 = 00111 en binaire 

Pour convertir un nombre decimal en nombre binaire (nombre en base 2) il faut partir 
des puissances de 2. 

2° = 1 - 

2 1 = 2 = 2 = 2(2°) 

2 2 = 4 = 2x2 = 2(2*) 

2 3 = 8 = 2x2x2 = 2(2 2 ) 

2 4 = 16 = 2x2x2x2 = 2(2 3 ) 

...et ainsi de suite : 

2 4 2 3 2 2 2 1 2° 

10 11 

(16 + + + 2 + 1) = 19 



Pour pouvoir utiliser les bits, on les groupe par ensembles de 8, que Ton appelle octets. 
Le plus grand nombre qu'on puisse ecrire avec un octet est 11111111 (binaire) = 255 
(decimal), soit 256 combinaisons (00000000 compris) de et de 1. 

Les ordinateurs manipulent les nombres par multiples de huit bits. 256 n'etant pas un 
nombre tres grand, les manipulations sont effectuees au moyen de 2 octets disposes en 
matrice. Une adresse verticale et une adresse horizontale permettant de positionner cha- 
que element de la matrice. 
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Cette matrice peut placer (10x10) elements, les elements dotes de 1 etant reconnus comme 

5,3 et 5,5. 

Une matrice binaire 256x256 peut ainsi manipuler 65536 elements differents en utilisant 
un octet pour l'adresse verticale et un octet pour Tadresse horizontale. 



Pour raccourcir, on utilise le Kilo octet (K ou KO) qui est egal a 1024 octets (le kilo ne 
valant pas 1000 en informatique). Voila pourquoi un ordinateur comme le CPC664, 
considere comme un 64K dispose en fait de 65536 octets (64 x 1024) de memoire. 

Heureusement, le BASIC opere les conversions pour vous et vous pourrez devenir un tres 
bon programmeur sans trop connaitre le binaire. Cela vous aidera toutefois a compren- 
dre pourquoi certains nombres ont plus d'importance que d'autres en informatique. 



Cependant... 

Bien que simple et elegant, le systeme binaire est difficile a lire car ses nombres ont ten- 
dance a s'allonger et a ne plus sauter aux yeux. 

On a done choisi de recourir a un systeme de notation en base 16, comme puissance de 2 
capable de traduire les nombres binaires d'une maniere plus concise. On Tappelle le sys- 
teme hexadecimal, HEX pour les intimes. 



Decimal 

1 23456789 10 11 12 13 14 15 

HEX 

123456789ABCDEF 



Le systeme hexadecimal peut decomposer les 8 bits d'un octet en deux blocs de quatre 
bits, 15 s'exprimant par un nombre a quatre bits : 1111 en binaire. 



Considerons la table avec les notations binaire, decimal et hexadecimal 



Decimal 


Binaire 


Hexadecimal 











1 


1 


1 


2 


10 


2 


3 


11 


3 


4 


100 


4 


5 


101 


5 


6 


110 


6 


7 


111 


7 


8 


1000 


8 


9 


1001 


9 


10 


1010 


A 


11 


1011 


B 


12 


1100 


C 


13 


1101 


D 


14 


1110 


E 


15 


mi 


F 


16 


10000 


10 



Un nombre a 8 bits peut etre decompose en deux nombres de 4 bits (appeles nibbles en 
anglais, ce qu'on peut traduire par petite bouchee...). 

Dans ce livre, les nombres hexadecimaux sont designes par le symbole &, &D6 par exem- 
ple, et servent aux programmeurs qui utilisent le langage assembleur, a mi-chemin entre 
le langage machine et le BASIC. 

Pour convertir de Fhexadecimal, vous devez faire attention a multiplier le premier chiffre 
par 16 et lui ajouter le deuxieme. Ainsi &D6 donne (13xl6) + 6^214 et non pas 13 et 6 
ou 136, comme on serait tente de le faire. 

C'est le meme procede que celui du systeme decimal, a ceci pres qu'il est plus facile de 
multiplier par 10 que par 16 ! 



Si vous avez tout compris jusque la, bravo, vous saurez rapidement maitriser le CPC664 
pour produire quantite de programmes. Si cela vous parait complique, consultez un livre 
d'initiation qui vous expliquera plus en detail ce que nous ne pouvons qu'effleurer dans 
ce livre. 




Partie 2 : 

Fonctions propres au CPC664 



Cette partie approfondit certains aspects propres au CPC664. Le Cours 
Elementaire et le chapitre « Liste complete des mots cles du BASIC 
AMSTRAD CPC664 » vous fourniront toutes les informations de base 
dont vous pouvez avoir besoin. 

Sujets abordes 

* Jeu de caracteres 

* ASCII 

* Variables 

* Logique 

* Caracteres definis par l'utilisateur 

* Formatage de PRINT 

* Fenetres 

* Interruptions 

* Donnees 

* Sons 

* Graphiques 

* Materiel 



Parlons un peu de caractere 

Lorsque vous tapez sur le clavier de votre CPC664, ne vous fiez pas aux lettres et nombres 
que vous voyez s'afficher a Fecran. Comme nous l'avons deja dit, votre ordinateur n'est 
pas une machine a ecrire. Ce qui apparait n'est que le resultat d'une combinaison de 
contacts electriques declenches par la pression des touches. Les signaux electriques 
declenches par cette action sur les touches sont traduits, dans les circuits internes de 1'or- 
dinateur, afin de produire a Tecran certains motifs de points. Ces motifs forment des 
lettres, des nombres ou des symboles propres au jeu de caracteres du CPC664. 



Certains caracteres affiches ne sont pas directement accessibles par les touches du clavier 
mais peuvent etre visualises au moyen de l'instruction PRINT CHR$ (<nombre>). Les 
elements stockes dans l'ordinateur se presentent tous sous forme d'octets offrant, comme 
nous venons de le voir dans la partie 1 de ce chapitre, 256 combinaisons de valeurs possi- 
bles. L'ordinateur devant faire appel a au moins un octet pour chaque caractere stocke 
dans sa memoire (que vous le vouliez ou non, c'est la plus petite unite geree par le 
CPC664) les 256 possibilites ainsi disponibles depassent largement les 96 caracteres, dits 
standard, d'une machine a ecrire, menageant ainsi 160 octets supplementaires dont il 
serait stupide de ne pas tirer parti. 

L'ensemble des caracteres « standard » s'appelle un « sous-jeu ». Dans le monde de l'in- 
formatique, il s'inscrit dans la categorie du systeme d'affichage « ASCII », acronyme 
d' American Standard Code for Information Interchange. A l'origine, ce systeme assurait 
la transmission de donnees d'un ordinateur a l'autre sous une forme que les systemes 
reconnaissent. Vous trouverez dans le chapitre « Pour information... » la liste des caracte- 
res ASCII ainsi que les caracteres supplementaires du CPC664 accompagnes des codes 
numeriques correspondant. 



Comment en arriver la... 

Au point ou nous en sommes, le programme d'affichage du jeu de caracteres : 

10 FOR n=32 to 255 
20 PRINT CHR$(n); 
30 NEXT 

...n'a certainement plus de secrets pour vous. Decortiquons-le maintenant : 

Nous constatons tout d'abord qu'au lieu d'ordonner PRINT « abcdefghijklmn. etc », 
nous avons entre PRINT CHR$(n), n etant une representation pratique de « variable ». 
Une variable est un element d'information qui « varie » selon les instructions du pro- 
gramme. (Le choix de n pour variable est tout a fait arbitraire, nous aurions pu prendre 
n'importe quelle combinaison de lettres, pourvu qu'elle soit differente d'un mot cle). 

Comment reconnaitre une variable ? 

Le chiffre 5 est fixe, il est compris entre 4 et 6 ; il n'est done pas une variable. Le caractere 
n est egalement fixe, c'est une lettre de l'alphabet. 



Comment l'ordinateur peut-il done faire la difference ? Si la lettre n avait ete declaree 
comme caractere alphabetique, elle aurait ete tapee entre guillemets " n ", et l'ordina- 
teur, incapable de comprendre la sequence FOR V n " = 32 TO 255, aurait repondu par 
le message Syntax error. 

En tapant n sans guillemets, nous avons indique a l'ordinateur qu'il s'agissait d'une varia- 
ble. En BASIC, une commande FOR doit etre suivie d'une variable ; l'ordinateur rejette 
done tout que ce qui en differe. 

Nous venons d'indiquer a l'ordinateur que n = 32 TO 255, definissant ainsi les valeurs 
possibles pour la variable. En fait, il s'agit d'une sequence commen^ant a 32 et finissant 
a 255. 

Apres avoir declare cette variable, nous devons alors indiquer a l'ordinateur ce qu'il doit 
en faire ; e'est justement le role de la ligne 20 : 

2U PRINT CHR$(n); 

Quelle que soit la valeur de n, l'ordinateur doit rechercher dans sa memoire le caractere 
correspondant, afin de 1'afficher a l'ecran. 

Le point- virgule terminant la ligne 20 indique a l'ordinateur qu'il ne doit effectuer ni 
retour chariot ni de saut de ligne. (Car chaque caractere serait affiche en premiere colonne 
d'une nouvelle ligne.) 

La ligne 30 lui commande de revenir a la ligne contenant FOR, apres avoir opere sur la 
premiere valeur de n (a savoir 32), et d'effectuer la meme operation pour la valeur sui- 
vante (NEXT) de la variable n. Ce procede, que Ton appelle «boucle», est l'un des 
concepts primordiaux de la programmation. II vous evite de retaper de longues sequences 
d'instructions et vous apprendrez tres vite a vous en servir dans vos programmes. 

Lorsque la boucle FOR NEXT atteint la derniere valeur de la fourchette declaree (255), 
cette operation s'arrete et l'ordinateur cherche la ligne suivant la ligne 30. Comme il n'y 
en a pas, le programme cesse et revient au mode direct avec affichage du message Ready, 
signalant ainsi qu'il est pret a recevoir de nouvelles instructions. Vous pouvez alors, si 
vous le desirez, entrer RUN une nouvelle fois pour repeter l'execution du programme. 
Ce dernier est stocke dans une partie de la memoire ou il restera tant que vous ne donnez 
pas l'ordre de le retirer et tant que l'ordinateur reste sous tension. 

Ce programme est l'illustration parfaite d'un aspect fondamental de l'informatique : tout 
ce que fait l'ordinateur se rapporte a des nombres. II a affiche l'alphabet et tout un ensem- 
ble de caracteres par le biais de leur reference numerique. Lorsque vous appuyez sur la 
touche A, vous ne demandez pas l'affichage du A mais vous invitez l'ordinateur a 
rechercher dans sa memoire l'information numerique correspondant a l'affichage du A 
sur l'ecran. L'emplacement de cette information est defini par un code numerique mis en 
oeuvre par l'actionnement de la touche du clavier. 



Chaque caractere correspond a un nombre. Vous trouverez une liste de references dans 
la partie 3 du chapitre « Pour information... ». 

De meme, l'affichage des caracteres a l'ecran n'a rien a voir avec l'ecriture telle que vous 
la connaissez : la encore, il s'agit de nombres. 

Ainsi, en code ASCII la lettre A correspond a 97. Mais l'ordinateur ne comprend pas ce 
nombre (il n'est pas tres fute) ; 97 doit d'abord etre converti du code decimal en un code 
que l'ordinateur puisse reconnaitre, c'est-a-dire en code (langage ???) machine (dont les 
principes sous-jacents sont abordes precedemment dans ce chapitre). 

A premiere vue, la conversion des nombres decimaux en notation hexadecimale peut sem- 
bler laborieuse. Nous sommes tellement habitues a compter en base 10, qu'en changer 
nous parait aussi farfelu que d'inverser la disposition du couteau et de la fourchette sur 
une table ! 

L'assimilation de la notation hexadecimale exige une petite gymnastique intellectuelle 
qui, apres que vous 1'aurez maitrisee, vous ouvrira la porte sur un grand nombre de 
notions informatiques. 

Si les systemes de numeration binaire et hexadecimale restent flous pour vous, nous vous 
conseillons de lire ou de relire attentivement la premiere partie de ce chapitre. 

Une fois que l'ordinateur a traduit 1'activation de la touche A par une serie de nombres 
qu'il comprend, il recherche la partie de la memoire indiquee afin d'obtenir une autre serie 
de nombres definissant a leur tour le caractere a l'ecran. La lettre que vous voyez apparai- 
tre est done constitute d'un bloc de donnees stocke en memoire sous forme de « matrice » 
numerique : 





MATRICE GRILLE a MINUSCULE A MAJUSCULE 

La matrice se compose de lignes et de colonnes de points. Le caractere s'affiche par activa- 
tion ou deactivation de la sequence de points requise, chaque point etant determine par 
des donnees stockees dans la memoire de l'ordinateur. Dans le cas du CPC664, les matri- 
ces ou « cellules » de l'ecran sont constitutes de 8 lignes sur 8 colonnes. Si le caractere que 
vous desirez afficher n'existe pas parmi les 255 disponibles, vous pouvez le definir a l'aide 
du mot cle SYMBOL, decrit dans une partie ulterieure de ce chapitre. 



Les « caracteres definis par Tutilisateur » s'obtiennent en combinant chacun des 64 points 
de la matrice, ce qui represente un grand nombre de possibilites. De plus, la capacite de 
reunir des blocs de caracteres pour constituer des caracteres plus larges ouvre les possibi- 
lites graphiques a votre seule disponibilite ou imagination. 



Expressions logiques 

Une des grandes differences entre un simple calculateur et un ordinateur reside dans la 
capacite qu'a Tordinateur a manipuler les operations logiques duplications telles que la 
sequence IF. .THEN (sL.alors). Les operateurs logiques traitent les valeurs auxquelles ils 
sont appliques en tant qu'ensembles de bits sur lesquels ils operent. Leur description et 
leur utilisation est tout a fait ...ben, logique, mais il est tres difficile de decrire la logique 
en termes simples. 

Disons qu'une expression logique comprend deux arguments et un operateur logique. 
Une expression logique comprend : 

< argument > [ < operateur logique > < argument > ] 

ou l'argument est defini comme suit : 

< argument > = NOT < argument > 

< expression numeriquo 

< expression relationnelle > 

< expression logique > 

Les deux arguments de part et d'autre d'un operateur logique sont convertis en nombres 
entiers (ce qui peut dans certains cas provoquer l'erreur N° 6, lorsque les nombres a 
convertir n'appartiennent pas a Tintervalle des nombres entiers de Tordinateur). 

Les operateurs logiques sont, par ordre de priorite : 

AN D ( = et) resultat sauf si les deux arguments sont vrais (bits indicateurs tous les deux 

1) 
OR (= ou inclusif) resultat 1 sauf si les deux arguments sont faux (bits indicateurs tous 

les deux 0) 
XOR (= ou exclusif) resultat 1 sauf si les deux arguments sont identiques (bits indica- 
teurs identiques). 

AND est le plus courant et ne veut pas dire « ajouter ». 
PRINT 10 AND 1 

Resultat 1 ! Mais 

PRINT 10 AND 12 
Resultat 8 et 



PRINT 10 AND 1 

Resultat 8 aussi ! 

Ceci est du au fait que 1 et 1 000 ont ete convertis en leur equivalent binaire. Droles 
de mathematiques, mais rappelez-vous que les operateurs logiques ne connaissent que le 
sy steme binaire et 1, vrai ou faux. 

Explication : 

10 en binaire 1010 

1000 en binaire 1111101000 

L'operateur AND verifie les 1 se trouvant en meme position dans les deux nombres et 
trouve : 

0000001000 

...qui en systeme decimal est egal a 8. L'operateur logique AND ( = et) verifie si deux 
conditions sont vraies en meme temps. Voici un petit programme explicatif : 

10 INPUT "Aujaurd'hui nous sommes ie";jaur 

20 INPUT "Quel est le nuntero du mois";fnois 

30 IF jaur=25 AND mois=12 THEN 50 

40 CLS:GQT0 10 

50 PRINT"Jayeux Noel ! " 

OR opere egalement par bits, donnant 1 dans tous les cas ou les deux bits des arguments 
different de 0, auquel cas le resultat est egal a 0. Avec les memes nombres que dans 
Texemple AND : 

PRINT 1000 OR 10 
1002 

En binaire : 1010 

1111101000 

Resultat: 1111101010 

Dans un programme : 

10 CLS 

20 INPUT "Quel est le numero du mois"5fflQiS 

30 IF mois=12 OR «nois=l OR <nois = 2 THEN 50 

40 GOTO 10 

50 PRINT"Naus devrions etre en Hiver ! 



L'operateur NOT inverse chaque bit de rargument (0 devient 1 et inversement) : 

1(3 CIS 

20 INPUT "Quel est le numero du moi. s " : rooi % 

3tfl IF NG1 (mois~6 0* mois-/ OR (Hois = 8)'IHtN 50 

40 (50 I LI 10 

jtf PKlNT"Nou<i ne pouvons etre en E.te ! " 

On peut aussi melanger autant d'operateurs logiques qu'on le desire (dans la limite d'une 
ligne) pour donner, par exemple : 

10 INPUT :, Aujourd : hui nous scxnmes ie H ijour 

20 INPUT "Quel est le nuroero du moi a" : moi s 

3 « IF NUT ( mois=l2 OK <nois=i> AND jour=29 IHfcN Stf 

40 CLSsbGTO 10 

50'PRINT" Ce n ;> e s t n i Decedibre n i Janvier m a i s c "' e s t p e u t • 

etre une an nee bissextile" 

Le resultat d'une expression relationnelle est soit -1, soit 0. La representation binaire 
de -1 donne une configuration binaire dont tous les bit valent 1 , et celle de en donne 
une dont tous les bits valent 0. Le resultat d'une operation logique sur de tels arguments 
donnera -1 pour vrai et pour faux. 

Ajoutons deux lignes pour compliquer : 

60 PRINT N0!UQis~i2 UR roois^i) 
70 PRINT (moi s*l2 OR RioisM) 

Si vous lancez le programme avec 29 pour le jour et 2 pour le mois, vous obtenez la 
reponse de la ligne 50 et les valeurs produites par les expressions des lignes 60 et 70. 

Pour finir, XOR (OU eXclusif) donne un resultat vrai si les deux arguments sont 
differents. 

Resumons par un tableau susceptible de donner une idee plus claire de la situation. Ce 
type de representation est appele table de verite d'une fonction. 

ARGUMENT A 1010 

ARGUMENT B 0110 

Resultat AND (et) 0010 

Resultat OR (ou) 1110 

Resultat XOR (ou exclusif) 1 100 



Caracteres definis par I'utilisateur 

Une des premieres applications de nombres binaires que vous etes susceptibles de ren- 
contrer concerne la determination de caracteres a l'aide de la commande SYMBOL. Si 
le caractere est dessine sur une grille de 8 sur 8, chaque case de la grille est alors convertie 
en chiffre binaire ; 1 correspondant a une case encree et a une case sans encre, c'est-a- 
dire de la couleur du fond. Les huit nombres sont ensuite passes comme parametres de la 
commande SYMBOL. Pour dessiner une maison, par exemple : 

* = 00021030 = &08 - 8=8 

**** = 00111100 = fc3C = 32+16 + 8 + 4 = 60 

* 4 - 01000010 = &42 * 64 + 2 = 66 

* * * * = 10100101 = &A5 = 128 +32 +4 +1- 165 

* * = 10000001 = &dl - 128 +1* 129 
*****= 10110101 ='&B5 = 128 +32+16 +4 +1= 181 
I it * = 10110001 = &B1 = 128 +32+16 +1= 177 
******** - 11111111 = &FF = 128+64+32+16+8+4+2+1= 255 

...la commande est celle-ci : 

SYMBOL 240,8,60,66, 165,129, 181, 177,255 
...ou : 

SYMBOL 240, &08 , &.3C , &42 , ^A5,8c81 , &B5, fcBl , &FF 

...ou bien : 

SYMBOL 240 . H 00001 000, &X001 1 1 100, U 01 0000 10,U 10100 101 
' U 1 000000 l,fcX 10 110101, &X101 10001, &X 11 111111 

Pour afficher le caractere defini, vous devez entrer : 

PRINT CHR$(240) 
Et enfin, pour grouper plusieurs blocs de caracteres il vous suffira de specifier : 

semi $=CHR$ (240) +CHR$ (240) 
PRINT semi$ 

...ou : 

terras5e*=5tring*(15,240) 
PRINT terrasse$ 

Lancez les rotatives ! 

PRINT est une des premieres commandes que vous utilisez lorsque vous debutez en infor- 
matique. Elle fait partie des commandes du BASIC dont le nom indique reellement la 
fonction...en apparence. En fait, PRINT suppose beaucoup plus de choses qu'il n'en 
parait : ou placer I'affichage ? De quelle maniere ? 



Format de PRINT 

La commande PRINT peut s'utiliser de plusieurs facons, la maniere la plus simple etant 
de la faire suivre de l'element a afficher ou imprimer : un nombre, une chaine ou un nom 
de variable. 

PRINT 3 

3 

PRINT "bonjour" 
bon j our 

a = 5 

PRINT a 
5 

a*="test" 
PRINT a$ 
test 

L'instruction PRINT peut contenir plusieurs elements intercales d'un separateur, TAB 
ou SPC. Les virgules et les points-virgules sont des separateurs. Le point-virgule permet 
l'affichage aligne des elements et la virgule provoque le decalage de raffichage sur la zone 
suivante. Bien que la largeur initiale d'une zone soit de treize caracteres, vous pouvez la 
modifier a Taide de la commande ZONE. 

PRINT 3 ; - 4 ; 5 
3 -4 5 

PRINT "bonjour "; "Monsieur " 
bonjour Monsieur 

PRINT "bonjour VMonsieur" 
bonjour Monsieur 

PRINT 3,-4,5 
3 -4 5 

ZONE 4 

PRINT 3,-4,5 
3-4 5 

Les nombres positifs sont precedes d'un espace et les nombre negatifs du signe moins. II 
sont tous suivis d'un espace. Les chaines s'affichent exactement telles qu'elles apparais- 
sent dans les guillemets. 



La fonction SPC accepte un parametre numerique definissant le nombre d'espaces a 
afficher. Pour les vaieurs negatives le nombre pris en compte est zero, si la valeur est supe- 
rieure a la iargeur de la fenetre, c'est la largeur de la fenetre qui est alors prise en compte. 



PRINT SPC(5) "coucou 1 

coucou 



PRINT SPC(x<3) "coucou' 

CQUCOU 



TAB fonctionne de maniere identique, mais affiche le nombre d'espaces requis de fagon 
a ce que l'element a afficher apparaisse a la colonne specifiee. 

Le canal ou apparaissent toutes les donnees en sortie est la fenetre 0, a moins qu'un speci- 
ficateur de canal (#) ne precede la liste d'elements a afficher. Vous pouvez utilisez d'autres 
canaux pour la sortie sur d'autres fenetres. Les canaux 8 et 9 sont particulars : le canal 8 
correspond a une imprimante et le canal 9 achemine les donnees sur un fichier de dis- 
quette (ou de cassette). Dans ces cas-la, la commande WRITE est toutefois preferable a 
PRINT. 



PRINT "bonjour" - fenetre 
b o n j o u r 

PRINT #0, "bonjour" - fenetre aussi 
bonjour 

PRINT #4, ''bonjour' 1 - fenetre 4 
bonjour (En haut de l'ecran) 



PRINT as^bonjour" - sur l'imprimante 

bonjour (Le cas echeant) 

Bien que TAB et SPC conviennent parfaitement aux formats d'affichage simples, une 
visualisation plus detaillee des informations demandera l'utilisation de la commande 
PRINT USING, accompagnee du modele de format adequat. Un modele de format est 
une chaine contenant des caracteres speciaux, specifiant chacun un type de format parti- 
culier Ces caracteres, appeles « specificateurs de format de zone » font l'objet d'une 
approche plus detaillee dans la description du mot cle PRINT USING, (precedemment 
dans cet ouvrage). Les quelques exemples suivants vous apporteront cependant des eclair- 
cissements sur le sujet. 

Pour commencer, voici les formats destines a l'affichage des chaines : 



" \\ " affiche autant de caracteres d'une chaine specifiee qu'il y a d'espaces et de barres 
obliques inversees dans le modele. 

PRINT USING M \ \";"test de chaine" 

test d 



" ! " sert a afficher le premier caractere d'une chaine. 
PRINT USING "I'Vtest de chaine" 

Le format le plus utile pour les chaines est encore " & ". II empeche Paffichage d'une 
chaine sur une nouvelle ligne. En effet, lorsqu'une chaine ne tient pas sur la ligne en cours, 
le BASIC la reporte par defaut sur une nouvelle ligne. PRINT USING " & "; permet de 
passer outre. 

(Utilisez BORDER pour visualiser les bords du papier.) 

MODE IjLOCATE 39 f laPRINT "trop longue" 

-ligne 1 
trop longue -ligne 2 

mode Islocate 39 f liPRINT USING "&"; H trop longue' 1 

tro -1 igne 1 
p longue -ligne 2 

Pour I'affichage de nombres, vous disposez de multiples modeles. Le plus simple etant 
PRINT USING " ##### ", ou chaque # correspond a un chifTre. 

PRINT USING "######"; 123 
123 

Vous pouvez introduire le point decimal a l'aide de " . ". 

PRINT USING *'####. ##### M ;12. 45 
12,45000 

Les chiffres avant le point decimal peuvent etre regroupes par trois et separes par des 
virgules. II faut alors faire appel a " f " dans le modele avant le point decimal. 

PRINT USING "•••«*•«•, .m«"il23496. 78 
123,456.7800 



« $$ » et « FF » permettent d'inclure des signes de monnaie flottants affiches avant le pre- 
mier chiffre du nombre meme s'il ne remplit pas le format entier. 

PRINT USING "$$f#";7 
$7 

PRINT USING "*«##"; 351 
*351 

PRINT USING "F####, . ##"; 1234. 567 
Fl.234.57 



Vous remarquez que le resultat est arrondi. 

" ** " dans le modele remplace les blancs precedant le nombre par des asterisques. 

PRINT USING " *»*»###. *t " ; 12. 22 

t*t*12.2 

Vous pouvez combiner les asterisques aux symboles monetaires : " **$... etc " ou " **F,... 
etc". 

Le signe " + " au debut du modele de format demande le placement du signe du resultat, 
avant le premier chiffre. S'il figure a la fin du modele, le signe est place apres le resultat. 

Le signe " - " ne peut se trouver qu'a la fin du modele de format pour qu'apparaisse un 
signe moins apres les nombres negatifs. 

PRINT USING "+##";12 
+ 12 

PRINT USING "'+##";-12 
-12 

PRINT USING "##+";12 
12+ 

PRINT USING "##-";-12 
12- 

PRINT USING "##-"; 12 
12 



Pour exprimer un nombre sous forme exponentielle, vous pouvez utiiiser « 1 1 1 | » dans 
le modele. 

PRINT USING M ###.##mt n 5i23.45 
12.35E+01 

Lorsque vous utilisez des modeles de format, le symbole % apparait devant ie resultat si 
le nombre depasse le modele specific (afin d'indiquer que le resultat n'a pas ete raccourci 
pour satisfaire au modele). 

PRINT USING "••••" ; 123456 
7.123456 



A vos fenetres ! 

Le BASIC du CPC664 permet de definir jusqu'a huit fenetres de texte. Toutes les com- 
mandes d'acheminement du texte vers l'ecran peut servir a envoyer Faffichage sur Tune 
de ces fenetres. 

La commande de definition d'une fenetre s'intitule tout naturellement WINDOW. Elle 
est suivie de 5 valeurs. La premiere, facultative, specifie la fenetre desiree (la fenetre ©par 
defaut). Tous les messages du BASIC (Ready par exemple) s'affichent dans la fenetreQ. 
Precedant ce chiffre, le symbole diese (#) l'identifie en tant que specificateur de canal. Les 
quatre parametres restant correspondent aux limites gauche, droite, superieure et infe- 
rieure de la fenetre. Ces valeurs definissent les limites en termes de lignes et colonnes 
d'ecran et doivent done etre comprises entre 1 et 80 dans le sens horizontal et entre 1 et 
25 pour la verticale. 

L'exemple suivant definit une fenetre 4 allant de la colonne 7 a la colonne 31, et de la 
ligne 6 a la ligne 18. Reinitialisez votre ordinateur et tapez ; 

WINDOW #4,7,31,6,18 ' 

Rien ne s'affiche apres l'entree de cette commande, mais si vous tapez : 

INK 3,9 
PAPER #4,3 
CLS #4 

...un grand rectangle vert apparait a l'ecran definissant la fenetre 4. L'exemple ci-dessus 
montre que introduction du numero de canal permet d'utiliser PAPER et CLS avec cha- 
cune des huit fenetres. La commande agit par defaut sur la fenetreO. 



Toutes les commandes ci-dessous peuvent etre accompagnees d'un specificateur de canal 
identifiant la fenetre sur laquelle elles vont agir. 

CLS 

COPYCHR* 

INPUT 

LINE INPUT 

LIST 

LOCATE 

PAPER 

PEN 

POS 

PRINT 

TAG 

TAGOFF 

VPQS 

WINDOW 

WRITE 



La fenetre verte que vous venez de creer a obscurci une partie du texte deja affichee (sur 
la fenetre©). 

Le texte peut etre dirige vers une fenetre donnee en integrant un specificateur de canal 
dans la commande PRINT. 

PRINT #4, M coucou" 

Ces mots apparaitront en haut du rectangle vert au lieu de s'afficher sur la ligne suivante 
comme lors de l'entree de : 

PRINT "coucou" 
Vous constatez qu'une partie de la fenetre verte a ete recouverte par le texte. 

Si vous desirez voir tous les messages du BASIC s'afficher dans la fenetre 4, par exemple, 
la commande WINDOW SWAP permet de la substituer a la fenetre par defaut : 

WINDOW SWAP (3, 4 

Le message Ready qui va suivre cette commande s'affiche alors dans la fenetre verte. Le 
curseur se trouve immediatement dessous. Tapez maintenant la ligne : 

PRINT M^cciicou" 



.„et le mot « coucou » va apparaitre directement sous la commande WINDOW SWAP 
dans Tancienne fenetre 0, (la fenetre 4 a present). II ressort que la position d'un affichage 
a l'interieur d'une fenetre est stockee et que, meme apres un WINDOW SWAP, le texte 
s'affiche sur cette position plutot qu'en haut. Entrez : 

LOCATE #4,20,1 

PRINT "la fenetre est ici H 

PRINT #4, "ceci est la fenetre 4 n 

Le message « la fenfctre est ici » apparait sur la ligne PRINT tandis que le message 
« ceci est la fenfrtre 4 » s'affiche au milieu de la premiere ligne de l'ecran. 

Avant Tentree d'une commande WINDOW, les huit fenetres couvrent la totalite de 
l'ecran. C'est egalement vrai pour une commande MODE. Ainsi, lorsqu'apres avoir uti- 
lise des fenetres, le curseur se trouve dans une fenetre tres reduite, il vous suffit de taper 
MODE 1, comme ceci : 

MODE 1 

WINDOW 20,21,7,18 
MO 
DE 
1 

Ne vous inquietez pas si le mot MODE est coupe en deux, cela ne l'empeche pas de rem- 
plir sa fonction. Par contre, n'oubliez pas de laisser un espace entre MODE et 1 . 

Vous connaissez maintenant le fonctionnement des fenetres, essayez done d'entrer ce petit 
programme : 

10 MODE 

20 FOR n=0 TO 7 

30 WINDOW #(1,0+1,0 + 6,0 + 1,0 + 6 

40 PAPER #n,n+4 

30 CLS #n 

60 FOR c=l TO 200:NEXT c 

70 NEXT n 

II definit huit fenetres de couleurs differentes se chevauchant. Lorsque Texecution du pro- 
gramme est terminee et que le message « Ready » apparait, appuyez sur ENTER plu- 
sieurs fois et observez le changement de couleur de l'ecran que provoque le defilement de 
la fenetre 0. Les blocs de couleur defilent, mais remplacement des autres fenetres ne 
change pas. Entrez maintenant : 

CLS #4 



...pour constater que la quatrieme fenetre est toujours a la meme place. Comme vous vous 
en doutiez, le nouveau bloc de couleur a obscurci ceux qu'il recouvre. A titre informatif, 
observez la difference entre les diverses entrees : 

LIST 
LIST #4 
LIST #3 

La commande WINDOW presente une autre particularity qu'illustre le dernier pro- 
gramme de ce chapitre : Tordre d'entree des dimensions gauche et droite des fenetres 
importe peu. En effet, si le premier parametre est superieur au second, le BASIC trie auto- 
matiquement les dimensions et les replace dans l'ordre. Cette remarque est egalement 
valable pour les limites inferieures et superieures des fenetres. 

10 MODE 

20 a=l+RND*19:b=i+RND*19 

30 c=i+RND*24:d=l+RND*24 

40 e=RND*15 

50 WINDOW a,b,c,d 

60 PAPER e:CLS 

70 GOTO 20 



Puis-je vous interrompre ? 

Vous Tavez peut-etre remarque, Tune des innovations logicielles majeures du CPC664 
consiste a gerer les interruptions a partir du BASIC : en d'autres termes, le BASIC 
AMSTRAD est capable d'executer un certain nombre de taches independantes a Tinte- 
rieur d'un meme programme. Cette capacite, connue sous le terme de « multitache », est 
geree par les commandes AFTER et EVERY. 

La possibility de mettre les sons en file d'attente et de les synchroniser par des rendez- 
vous represente un autre exemple de cette particularity. 

La synchronisation du systeme incombe a son horloge maitresse. Elle est constitute d'un 
systeme de synchronisation a quartz, integre dans l'ordinateur veillant a Torganisation 
chronologique des evenements (le balayage de Taffichage et la frequence du processeur, 
par exemple). Toutes les fonctions materielles se rapportant au temps peuvent se retrou- 
ver dans l'horloge a quartz du systeme. 

L'implementation logicielle de cette synchronisation appartient aux commandes AFTER 
et EVERY. Fideles a la convivialite du BASIC AMSTRAD, celles-ci font exactement ce 
qu'elles indiquent : AFTER (apres) la duree definie dans la commande, le programme 
donne le controle au sous-programme indique qui execute la tache definie. 



Le CPC664 gere en permanence une horloge temps reel. La commande AFTER permet 
a un programme en BASIC d'appeler des sous-programmes a un moment donne. Quatre 
chronometres sont ainsi disponibles, chacun pouvant etre associe a un sous-programme. 

Apres ecoulement du delai specifie, le sous-programme est automatiquement appele, 
comme il le serait par une instruction GOSUB. A la fin du sous-programme, la com- 
mande RETURN provoque la reprise du programme principal a Tendroit meme de In- 
terruption. 

La commande EVERY permet a un programme en BASIC de rappeler des sous-pro- 
grammes a intervalles reguliers. Cette fois encore, quatre chronometres sont disponibles 
et chacun peut etre associe a un sous-programme. 

Les chronometres possedent differentes priorites d'interruption. Le chronometre 3 cor- 
respond a la priorite superieure et le chronometre a la priorite inferieure. (Pour de plus 
amples renseignements, consultez le chapitre << Pour information... »). 

10 MODE l:n»14ix-RND*4BB 

20 AFTER x,3 GQSUB 80 

30 EVERY 25,2 GQSUB 160 

40 EVERY 10,1 GOSUB 170 

50 PRINT'Testez vos reflexes" 

60 PRINT"Appuyez sur la barre espace. " 

70 IF flag=l THEN END ELSE 70 

80 z=REMAIN<2) 

90 IF INKEY(47)s-i THEN 110 

100 SOUND l,900:PRINT"Tricheur ! H :G0T0 150 

110 SOUND 129,20:PRINT ,, MAINTENANT M :t = TIME 

120 IF INKEY(47)=-1 THEN 120 

130 PRINT'Wous avez mis"; 

140 PRINT (TIME-t) /3BB; "seconde" 

150 CLEAR INPUT:fiag=l:RETURN 

160 SOUND 1,0,50:PRINT".";:RETURN 

170 n«n+i:IF n>26 THEN n=14 

180 INK t,n:RETURN 



Les commandes AFTER et EVERY peuvent intervenir a tout moment pour reinitialiser 
le sous-programme concerne en accord avec le chronometre. Ces deux commandes se 
partagent les chronometres, une commande AFTER annulant toute commande EVERY 
anterieure pour un chronometre donne et inversement. 

Les commandes Dl et El desactivent et activent les interruptions de chronometre tout en 
permettant l'execution des commandes les separant. Une interruption de priorite elevee 
est ainsi dans l'impossibilite de perturber le deroulement d'une interruption de priorite 
moindre. La fonction REMAIN desactive le comptage d'un des chronometres et restitue 
le nombre d'impulsions restantes avant le declenchement de l'interruption. 



Utilisation des donnees... 

Dans un programme necessitant ('entree d'un meme ensemble d'informations des le 
debut, il serait judicieux de pouvoir entrer toutes les valeurs une fois pour toutes. C'est le 
role des commandes READ et DATA. READ est tres similaire a INPUT dans le sens ou 
elle affecte des valeurs a des variables. Elle en differe cependant par le fait que ces valeurs 
sont lues a partir des commandes DATA au lieu d'etre entrees au clavier. En voici deux 
exemples : 

10 READ a,b,c 

20 PRINT H les nombres sont " ; a; M et" ; b; "et " \ c 

38 DATA 12, 14,21 

run 

10 INPUT "Entrez 3 nombres separes par une virgule" ; a, b, c 

20 PRlNT"ies nombres sont " ; a; "et " ; b; "et " ; c 

run 

Des virgules separent les differents elements d'une commande DATA, tout comme pour 
la commande INPUT. 

Outre des valeurs numeriques, les commandes DATA peuvent contenir des constantes 
alphanumeriques : 

10 DIM a*(10) 

20 FOR i=B TO 9 

30 READ a$(i> 

40 MEXT 

50 FOR i=0 TO 9 

60 PRINT a$(i); M " ; 

70 NEXT 

80 DATA rien,ne, sert, de, courrir, i 1 , faut, partir, appoint 

run 



Bien que la commande DATA comporte des chaines, celles-ci ne se trouvent pas entre 
guillemets. L'emploi des guillemets est en effet facultatif pour la commande DATA, 
comme lors de Tentree d'une chaine en reponse a une commande INPUT. lis sont cepen- 
dant tres utiles lorsque les chaines de donnees contiennent elles-memes des virgules. En 
cas d'omission, ('instruction R EAD interpreterait ces virgules comme les virgules conven- 
tionnelles de la commande DATA, coupant ainsi la chaine en phisieurs trongons. 



10 READ a$ 

20 WHILE a«<>"«" 

30 PRINT a$ 

40 READ a$ 

50 WEND 

60 DATA J ? ai longtemps, habite,sous de vastes portiques 

70 DATA Que, des, soleils marins, teignaient, de mi lie feux 

80 DATA * 

run 



La chaine de la ligne 60 comporte des virgules entrainant le lecture et l'affichage de cha- 
que partie. Par contre, la chaine de la ligne 70 est delimitee par des guillemets, et sera 
done affichee comme un tout. 

L'exemple ci-dessus montre que les donnees peuvent occuper plusieurs lignes. READ 
traite les lignes de haut en bas dans 1'ordre des numeros de ligne (60, 70, 80, etc...)- Par 
ailleurs, les instructions DATA peuvent se trouver n'importe oii dans le programme : 
avant ou apres la commande READ qui extrait les informations. 

Si un programme contient plusieurs commandes READ, la seconde reprend la ou la pre- 
miere s'arrete : 

10 DATA 123,456,789,321,654,2343 

20 FOR i«l TO 5 

30 READ nomb 

40 total-total+nomb 

50 NEXT 

60 READ total2 

70 IF total=toU12 THEN PRINTMes donnees sont justes" ELSE 

PRI-NT" i 1 y a une erreur dans les donnees" 

run 

Essayez de modifier la ligne 1 en introduisant une erreur dans Tun des cinq premiers 
nombres, puis lancez le programme. Cette methode d'insertion, a la fin d'une commande 
DATA, d'une valeur supplementaire egale a la somme de toutes les autres valeurs consti- 
tue un bon moyen de detection d'eventuelles erreurs, surtout lorsque les lignes DATA 
sont nombreuses. Cette methode s'appelle somme de controle (checksum). 

Si un programme fait appel a des donnees mixtes (chaines et nombres), il est possible de 
les combiner dans les instructions DATA et READ, a condition que les elements soient 
lus correctement. Par exemple, si DATA contenait des sequences de deux nombres suivis 
d'une chaine, seul l'emploi d'une commande READ suivie de deux variables numeriques 
et d'une chaine serait justifie : 



113 DIM a(5),b(5),p*(5) 

20 FOR i-i TO 5 

30 READ a(i),b(i),p$(i) 

40 NEXT 

50 DATA l,7,fred,3,9,f rancoi s, 2, 2, dany , 4, 6, ol i vier , 9, l,eric 

60 FOR i=l TO 5 

70 PRINT p*<i),":";a(i)*b(i) 

80 NEXT 

Vous pouvez, pour changer, separer les differents types de donnees : 

10 DIM a(5),b(5),p*(5) 

20 FOR i=l TO 5 

30 READ a(i),b(i) 

40 NEXT 

50 FOR i=l TO 5 

60 READ p$(i) 

70 NEXT 

B0 DATA 1,7,3,9,2,2,4,6,9,1 

90 DATA fred,francois, dany, Olivier, eric 

100 FOR i=l TO 5 

110 PRINT p*(i),":";a(i)tb(i) 

120 NEXT 

Si la boucle FOR de la ligne 20 se change en : 
20 FOR 1=1 TO 4 

...les deux premiers essais de lecture des chaines a la ligne 60 donnent alors " 9" puis 
" 1 ". Bien qu'elles soient valides, ces valeurs ne representent pas vraiment le resultat 
attendu ! Pour obtenir les valeurs souhaitees, il faudrait introduire dans le programme les 
commandes : 

15 RESTORE 80 
45 RESTORE 90 

La commande RESTORE place le pointeur-lecteur de DATA a la ligne specifiee et peut 
ainsi servir dans une commande conditionnelle pour lire certains blocs de donnees selon 
des criteres donnes. De cette maniere, dans un jeu a plusieurs niveaux possedant plusieurs 
ecrans, les donnees de chaque ecran pourront etre extraites en fonction d'une variable 
(leur niveau, par exemple). Voici un programme de ce type : 



1(100 REM section de dessin sur ecran 
1010 IF niveau=l THEN RESTORE 2010 
1020 IF nlveau=2 THEN RESTORE 2510 
1030 IF niveau=3 THEN RESTORE 3010 
1040 FOR y = l TO 25 
1050 FOR x=l TO 40 
1060 READ char 

1070 LOCATE x.yjPRINT CHRS(char); 
1080 NEXT x,y 

2000 REN DATA pour l'ecran 1 

2010 DATA 200,190,244,244,210 ...etc 

2500 REM DATA pour l'ecran 2 

2510 DATA 100,103,245,243,251 ...etc 

■ 

3000 REM DATA pour l'ecran 3 

3010 DATA 190,191,192,193,194 ...etc 

Les commandes DATA, READ et RESTORE peuvent egalement etre illustrees par un 
programme musical. Les periodes sonore sont lues (READ) dans les commandes DATA 
tandis que RESTORE relance une section en ramenant le pointeur au debut d'une partie 
donnee du programme : 

10 FOR i=l TO 3 

20 RESTORE 100 

30 READ note 

40 WHILE note <>-l 

50 SOUND 1, note, 35 

60 READ note 

70 WEND 

80 NEXT 

90 SOUND 1,142,100 

100 DATA 95,95,142,127,119,106 

110 DATA 95,95,119,95,95,119,95 

120 DATA 95,142,119,142,179,119 

130 DATA 142,142,106,119,127,-1 

run 



Des sons a votre portee... 

Parmi les fonctions du CPC664, les commandes de son et d'enveloppe vpus paraitront 
probablement les plus obscures a premiere vue. II n'y a absolument pas de quoi. Avec 
un peu d'entrainement, vous serez capable d'obtenir toute une gamme d'effets sonores 
differents et meme de composer des harmonies. 

Commencons par les quatre premieres parties de la commande SOUND : numero de 
canal, periode sonore, duree de la note et volume. Vous vous demandez peut-etre quelles 
valeurs chaque nombre peut prendre ? 

Pour le moment, nous laisserons la premiere partie (numero de canal) de cote, car ce n'est 
pas la plus simple. La periode sonore peut prendre les valeurs a 4095, mais seules 
quelques-unes de ces valeurs correspondent a des notes de musique (elles sont listees dans 
la partie 5 du chapitre « Pour information... »). Ainsi, le nombre 478 correspond au Do 
medium et 506 a la note situee juste en-dessous : le Si. Mais le son obtenu avec les valeurs 
479 a 505 ne correspond a aucune des notes du piano. Aucune note n'est jouee lorsque la 
periode est fixee a 0, ce qui nous sera bien utile lorsque nous passerons au « bruit » (voir 
plus loin). 

La troisieme partie de la commande SOUND fixe la duree de la note en centiemes de 
seconde. Les valeurs admissibles se situent entre 1 et 32767 (inclus). Toutefois, pour une 
valeur nulle (zero), la duree de la note est determinee par l'enveloppe selectionnee (on y 
reviendra). Une valeur negative indique qu'il faut repeter l'enveloppe le nombre de fois 
specifie. Ainsi, -3 signifie « repete l'enveloppe de volume 3 fois » (nous y reviendrons ega- 
lement plus tard). 

La quatrieme partie de la commande est le volume. II prend les valeurs a 15 (12 par 
defaut). Dans les sons que n*us avons entendus jusqu'a present, le volume etait constant 
pendant toute l'execution de la note. Lorsque la note est modulee par une « enveloppe de 
volume », la valeur indiquee dans la commande SOUND concerne le volume au depart 
de la note. 

Voyons maintenant le numero de canal. Autant vous dire des a present qu'il correspond 
a un nombre binaire - il va done vous falloir etudier un peu les nombres binaires arm d'en 
comprendre la signification (voir la premiere partie de ce chapitre). 

Vous avez le choix entre trois canaux pour jouer un son. Si votre ordinateur est connecte 
a un amplificateur stereophonique, l'un des canaux va sur la sortie gauche, l'autre sur la 
sortie droite et le troisieme sur les deux a la fois (au milieu). Les numeros suivants sont 
utilises pour indiquer le canal sur lequel une note doit etre jouee : 

1 canal A 

2 canal B 
4 canal C 



Lorsque vous desirez jouer sur plusieurs canaux, il vous suffit d'additionner les numeros 
des canaux desires. Ainsi, pour jouer sur A et C, vous indiquerez 1+4=5. 

SOUND 5,284 

Vous vous demandez certainement pourquoi on a attribue au canal C le numero 4 au lieu 
de 3. Cela tient au fait que Ton n'a utilise ici que des puissances de 2 (1 = 210, 2 = 2|1, 

4 = 2|2), si bien que leurs combinaisons ont la structure d'un nombre binaire. Dans un 
nombre binaire de trois chiffres, chacun des chiffres peut prendre les valeurs ou 1, deter- 
minant ainsi Tetat en service ou hors service du canal correspondant. Ainsi, dans notre 
exemple : 

5 en notation decimale equivaut a 1*4+0*2 + 1*1, done 101, en notation binaire. En 
associant un chiffre binaire a chaque colonne A, B ou C on obtient : 

CB A 

10 1 

En d'autres termes, le canal C est en service, le canal B est hors service et le canal A est 
en service. Si Ton desire jouer une note sur les canaux A et B i) faut indiquer ; 

CBA 

01 1 

Le nombre binaire 011 correspondant a 0*4+1*2 + 1*1 =3, la commande SOUND 
prend la forme : 

BOUND 3,248 

Naturellement, on obtient exactement le meme resultat en additionnant simplement les 
numeros de canal (souvenez-vous que A = 1, B = 2 et C - 4). Le numero a indiquer pour 
jouer sur les canaux A et B est done bien 1+2 = 3. 

Ne vous inquietez surtout pas si vous n'avez pas compris cette demonstration. La seule 
chose vraiment importante a retenir pour choisir une combinaison de canaux est l'addi- 
tion des numeros de canal. 

Helas, 1, 2 et 4 ne sont pas les seuls parametres de numero de canal. Les valeurs 8, 16 et 
32 peuvent egalement etre utilisees, arm d'indiquer qu'un son produit sur un canal a ren- 
dezvous avec un autre canal (A, B et C respectivement). Qu'entendons-nous par rendez- 
vous ? C'est tres simple : les sons que nous avons fabriques jusqu'a present etaient imme- 
diatement joues sur le canal indique. Essayez done ce qui suit : 

SOUND 1,248,2000 
BOUND 1,90,200 



A moins d'etre particulierement lent au clavier, vous avez constate que vous aviez le 
temps de taper la seconde commande avant que la premiere n'ait fini de s'executer. Ceci 
est du au fait que le mode sonore est capable de maintenir jusqu'a 5 commandes SOUND 
en file d'attente pour un meme canal. Supposons que nous desirions jouer un son sur le 
canal A, puis deux sons simultanes sur les canaux A et B. II faudrait bien trouver un 
moyen d'indiquer a l'ordinateur qu'il ne doit pas emettre le son du canal B avant que le 
canal A ne soit pret a entamer sa seconde note. C'est alors qu'intervient la notion de ren- 
dezvous, que Ton obtient de deux fagons differentes : 

BOUND 1,200,1000 
BOUND 3,90,200 

La seconde note est ici dirigee sur A et B, elle ne peut done etre jouee qu'apres la fin de 
la note du canal A/On fait ainsi attendre une note jusqu'a ce que les canaux qu'elle doit 
utiliser soient libres. Inconvenient evident : le meme son sera dirige sur chacun des canaux 
(le son ,90,200, dans notre cas, est joue par A et B). Voici l'autre methode : 

SOUND 1,200,2000 
SOUND 1+16,90,200 
SOUND 2+8,140,400 

Dans cet exemple, on fixe a la seconde note de A un rendez-vous avec la note de B (et a 
la note de B un rendez-vous avec celle de A). L'a vantage est clair : les deux notes pour- 
raient etre differentes, elles seraient neanmoins liees de sorte qu'aucune ne pourrait etre 
emise sans que les deux canaux ne soient libres. Voila done ce qu'on appelle un rendez- 
vous. La encore, la signification de ces valeurs n'apparait qu'en binaire : 

8 = 2|3, 16 = 2T4,et32 = 2T5. 

Nous pouvons done maintenant nous representer le numero de canal sous la forme d'un 
nombre binaire dont les chiffres portent les titres suivants : 

Rendez-vous avec Rendez-vous avec Rendez-vous avec Jouer sur Jouer sur Jouer sur 
C B A C B A 

Ajouter 32 Ajouter 16 Aj outer 8 Ajouter 4 Ajouter 2 Ajouter 1 

Ainsi, pour jouer sur C une note ayant rendez-vous avec A, vous specifiez ; 

110 



C'est-a-dire le nombre 1 100, correspondant en decimale a 8 + 4= 12. 

Le numero de canal 12 indiquera done a 1'ordinateur qu'avant de jouer une note sur le 
canal C il doit attendre la note du canal A avec laquelle il a rendez-vous. 



Si Ton ajoute au numero de canal le nombre 64 (2|6), 1'ordinateur retient la note sans la 
jouer. Cette valeur indique en effet que la note n'est liberee que lors d'une commande 
RELEASE. 

Enfin, si Ton ajoute 128 (2|7), la file d'attente du canal indique est annulee. Vous pouvez 
utiliser cette valeur pour arreter rapidement, sur un canal donne, un son qui risque de 
durer trop longtemps : 



SOUND 1 248 30000 (ce son durerait cinq minutes, mais) 

SOUND 1 + 128^0 (lui coupe le sifflet) 

En mode direct, le moyen le plus rapide d'arreter un son est d'appuyer sur la touche 
[DEL] en debut de ligne : le signal sonore d'avertissement vide alors immediatement tous 
les canaux sonores, 

Maintenant que vous savez diriger un son sur Tun des trois canaux (en fixant au besoin 
des rendez-vous), vous aimeriez certainement apprendre a produire des sons un peu plus 
melodieux que ceux auxquels vous limite la commande SOUND telle que vous l'em- 
ployez. II vous faut pour cela attribuer au son une enveloppe, c'est-a-dire un modele 
definissant la variation du volume en cours d'execution. Lorsqu'une note est jouee sur un 
instrument, on a d'abord une attaque pendant laquelle le volume augmente tres rapide- 
ment, apres quoi il descend a un niveau inferieur, auquel il se maintient un certain temps 
avant de s'eteindre progressivement. II est parfaitement possible de reproduire cette dyna- 
mique sonore au moyen de la commande SOUND. On utilise pour cela la commande 
associee ENV. Commen^ons par un exemple tres simple : 

ENV 1,5,3,4,5,-3,8 
SOUND 1,284,0,0,1 

La commande ENV est specifiee avant la commande SOUND a laquelle elle s'applique. 
Pour utiliser une enveloppe avec la commande SOUND, on indiquera son numero au 
cinquieme parametre de cette derniere (dans l'exemple ci-dessus, nous avons choisi l'enve- 
loppe numero 1). Le premier parametre d'une commande ENV est son numero. Du fait 
que la commande ENV indique la duree et l'intensite d'une note, on fixera a les parame- 
tres de la commande SOUND correspondants. L'enveloppe ci-dessus definit une 
augmentation de volume en cinq pas correspondant a une augmentation de 3 unites et 
durant 4 centiemes de seconde chacune. Le son diminue ensuite en 5 pas de 3 unites et de 
8 centiemes de seconde. Ainsi, le premier nombre, ou « numero d'enveloppe », est suivi 
de deux groupes de trois nombres. A l'interieur d'un groupe se trouve un premier nombre 
indiquant en combien de pas s'effectuera l'augmentation ou la diminution de volume, un 
deuxieme indiquant la variation de volume au cours de chaque pas, et le troisieme la 
duree de ces pas. 



La duree totale correspond au premier nombre (le nombre de pas) multiplies par le 
troisieme (la duree d'un pas). La variation totale d'amplitude du volume est egale a celle 
de chaque pas multipliee par le nombre de pas. La duree totale d'une enveloppe compre- 
nant plusieurs segments est egale a la somme des durees de chacun des segments. 

Le volume initial (defini dans la commande SOUND), peut bien sur etre different de 0. 
L'enveloppe definie dans le premier exemple formait un crescendo suivi d'un decres- 
cendo. Voici maintenant un decrescendo suivi d'un crescendo : 

ENV 2,5,-2,1,20,0,1,10,1,1 
BOUND 1,248,0,15,2 

Cette enveloppe, qui portera le numero 2, est composee de trois segments. Dans le pre- 
mier, le volume decroit en 5 pas de -2. II diminue done de 2 a chaque pas d'un centieme 
de seconde. Le second segment comprend 20 pas, au cours desquels le taux de variation 
est de (le volume est done constant). La encore, la duree d'un pas est de 1 centieme de 
seconde. Le troisieme segment, enfin, comprend 1 segments augmentant le volume de 
1 chacun et durant egalement 1 centieme de seconde. 

Comme la commande SOUND indique un volume initial de 1 5, ce dernier sera done de 
5 apres le premier segment, il restera a ce niveau pendant 20 centiemes de seconde, avant 
de remonter jusqu'a 1 5 au cours du dernier segment de l'enveloppe. 

Si cette representation chiffree de l'enveloppe vous semble trop abstraite, vous prefererez 
peut-etre la dessiner d'abord sur un graphe, puis en extraire les valeurs a introduire dans 
la commande ENV. Voici la representation graphique des deux enveloppes definies jus- 
qu'a present : 



Variation de volume 
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NOMBRE D'ETAPES 5 
I VARIATION APR ETAPE 3 
DUREE PAR ETAPE 4 



NOMBRE D'ETAPES 5 
VARIATION PAR ETAPE -3 
DUREE PAR ETAPE 8 
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NOMBRE D'ETAPES 20 
VARIATION PAR ETAPES 
DUREE PAR ETAPE 1 



Une enveloppe pouvant contenir jusqu'a cinq segments de trois valeurs chacun, l'instruc- 
tion ENV peut done utiliser un maximum de 16 parametres (en comptant le numero 
d'identification de l'enveloppe, compris entre 1 et 15). Lorsque les variations de volume 
indiquees excedent les limites d'intensite autorisees (entre et 15), la valeur de l'intensite 
boucle sur elle-meme, si bien que la premiere valeur depassant 15 correspond au volume 
et la premiere au-dessous de 0, au volume 1 5 : 

ENV 3,9,5,20 
SOUND 1,248,8,0,3 

Cette enveloppe tres simple definit 9 pas au cours desquels le volume augmente de 5 en 
5 pour une duree de 20 centiemes de secondes chacun. Le volume atteint le niveau 15 a 
la fin du troisieme pas, si bien que la variation suivante amene celui-ci a 4, la suivante a 
9 etc... Voici, sous forme graphique, Teffet produit par cette commande : 



Variation 
de volume 



80 90 

NOMBRE D'ETAPES 9 
VARIATION PAR ETAPES 5 
DUREE PAR ETAPE 20 



Le nombre des pas peut varier de a 127 et leur amplitude de -128 a +127 (une valeur 
negative correspondant a une diminution de volume). La duree des pas peut prendre des 
valeurs allant de a 255. 

Nous savons maintenant modeler a volonte l'enveloppe de volume. Voyons a present 
comment jouer sur la hauteur de la note pour creer, par exemple, un effet de vibrato, 
c'est-a-dire une note oscillant autour d'une hauteur donnee. 

La procedure a suivre ressemble beaucoup a celle de Tenveloppe de volume. On utilise la 
fonction ENT, dont voici un exemple. 

EN I i,.b, 1, 1,3,-1, 1 
SOUND 1,248, 10, 15, , 1 



Le numero d'enveloppe de tonalite constitue le sixieme parametre de la commande 
SOUND. La encore, la commande ENT doit intervenir avant la commande SOUND. 



La commande ENT de ce premier exemple precise que l'enveloppe numero 1 est compo- 
see de 5 pas augmentant la periode d'une unite et durant un centieme de seconde chacun. 
La partie suivante definit egalement 5 pas diminuant de 1 la periode et durant un cen- 
tieme de seconde chacun. La duree totale de l'enveloppe est de 5 + 5 = 10. Vous remar- 
quez que nous avons du indiquer cette duree a l'interieur de la commande SOUND. En 
effet, a la difference de ENV, la commande ENT ne precise pas la duree de la note jouee. 
Si la duree indiquee dans la commande SOUND est plus courte que celle de l'enveloppe 
de ton, une partie de cette derniere sera perdue. Si, au contraire, elle est plus longue, la 
fin de la note ne subira aucune variation de periode. Ceci est egalement valable lorsque 
l'enveloppe de volume determine la duree de la note. 

(Remarquez egalement l'absence du parametre « enveloppe de volume », cette enveloppe 
n'etant pas creee pour notre exemple) 

La duree de l'enveloppe de tonalite est, dans la plupart des cas, beaucoup plus courte que 
celle de la note. On indique alors qu'elle doit se reproduire jusqu'a la fin de la note, en 
choisissant un numero d'enveloppe negatif. Le parametre utilise dans la commande 
SOUND est le nombre positif correspondant : 

ENT «5,4, 1,1,4,-1, 1 
SOUND 1,248, 100, 12, ,5 

On obtient alors un effet de vibrato. II est souvent preferable de definir une enveloppe de 
tonalite assurant une variation symetrique autour de la frequence initiale, evitant ainsi 
que la note ne s'eloigne de plus en plus de celle-ci. Essayez par exemple : 

ENT -6,3,1, 1 

SOUND 1,248,90, 12, ,6 

La tres nette chute de frequence que vous avez constatee provient du fait que chaque repe- 
tition de l'enveloppe augmente la periode de la note de 3 unites, ce qui se produit 30 fois 
(90 divise par trois). Cette caracteristique permet des effets de sirene ou de pedale « wah- 
wah » : 

ENT -7,20,1,1,20,-1,1 
SOUND 1,100,400,12, ,7 

ENT -8,60,-1,1,60, 1,1 
SOUND 1,100,480, 12, ,8 

On peut definir ainsi jusqu'a quinze enveloppes numerotees de 1 a 15, en utilisant les 
valeurs negatives correspondantes pour obtenir la repetition de l'enveloppe. Le nombre 
de pas, premier parametre de chaque groupe, peut varier entre et 239. L'amplitude du 
pas prend, comme pour la commande ENV, des valeurs comprises entre -128 et 127, tan- 
dis que la duree par pas doit etre comprise entre et 255. On est la encore limite a cinq 
segments composes de trois valeurs chacun. 



II est possible d'ajouter un dernier parametre a la commande SOUND : le niveau de bruit 
que Ton desire incorporer au son. Lorsqu'on utilise un bruit, il ne faut jamais oublier que 
cette fonction ne dispose que d'un canal et que, de ce fait, chaque nouvelle periode 
recouvrera la precedente. 

On peut utiliser un bruit soit en le melangeant a un son pour modifier celui-ci, soit isole- 
ment en donnant a la periode sonore (deuxieme parametre de la commande SOUND) la 
valeur O. C'est ainsi que Ton reproduit les effets de percussions. Essayez par exemple : 

ENT -3,2, t, 1,2,-1,1 

ENV 9,15, 1,1,15,-1,1 

FOR a^i TO 10: SOUND 1 , 4000, 0, 0, 9, 3, 15: NEXT 

Vous constatez que ces instructions, elements de depart pour la simulation d'un bruit de 
train, combinent le bruit avec les deux types d'enveloppes. 

Les parametres de duree et de volume etant fixes a dans la commande SOUND, ces 
deux caracteristiques sont done determinees par Tenveloppe de volume. 

Si Putilisation des commandes SOUND, ENV et ENT est parfaitement claire pour vous, 
nous allons pouvoir aborder les differentes commandes et fonctions qui leur sont asso- 
ciees. 

Lorsque nous parlions du numero de canal de la commande SOUND, nous avions dit 
qu'en lui ajoutant le nombre 64 on retenait le son dans une file d'attente, jusqu'a ce qu'il 
soit libere par la commande RELEASE. Le mot cle RELEASE est suivi d'un nombre 
correspondant au bit significatif de celui des trois canaux que vous desirez liberer. La 
seule chose importante a retenir est que : 

4 designe le canal C 
2 designe le canal B 
1 designe le canal A 

...et que vous obtiendrez la liberation de plusieurs canaux a la fois en additionnant les 
nombres correspondants. Ainsi, pour liberer les sons retenus sur les trois canaux, on indi- 
quera : 

RELEASE 7 

...le nombre 7 etant egal a 1 + 2 + 4. L'ordinateur ne tient pas compte d'une commande 
RELEASE si aucun des canaux ne se trouve bloque. Essayez maintenant : 

SOUND 1+64,90 

SOUND 2+64, 140 

SOUND 4+64,215 

RELEASE 3: FOR t=i TO 1 000: NEXT : RELEASE 4 



Les sons definis par les commandes SOUND ne sont produits qu'au moment ou la pre- 
miere commande RELEASE libere les canaux A et B. Le son retenu dans le canal C est 
libere a la fin de la boucle d'attente. 

II existe encore un autre moyen d'obtenir un rendez-vous de plusieurs sons. Lorsqu'un 
son est place en file d'attente dans un canal a 1'etat bloque (numero de canal + 64), ce 
dernier retiendra egalement tous les sons diriges ensuite sur cette file. Si plus de quatre 
sons supplementaires sont ajoutes a cette meme file, la machine effectue une pause sous 
la forme, par exemple, d'un sous-programme appele apres un laps de temps determine 
par la commande AFTER ou EVERY. Cette methode est done a deconseiller en mode 
sonore, puisqu'elle provoque une pause du programme des qu'une file se trouve surchar- 
gee. On rencontre le meme inconvenient lorsque de nombreux sons de longue duree sont 
accumules a un rythme trop rapide. Voyez plutot : 

10 FOR a=l TO 8 

20 SOUND l,100*a,2B0 

30 NEXT 

4-0 PRINT H banjour" 

run 

Vous constatez que le mot " bonjour " ne s'affiche qu'au bout d'un certain temps, apres 
execution des trois premiers sons. Ce retard tient au fait que l'execution du programme 
ne peut continuer tant qu'une place ne s'est pas liberee dans la file. 

Le BASIC possede un mecanisme d ' interruption assez similaire a celui qu'utilisent les 
commandes AFTER, EVERY ou OM BREAK GOSUB. II donne acces a un sous-pro- 
gramme d'emission sonore qui n'est appele que lorsqu'une place se libere dans la file 
demandee. En voici un exemple : 

10 a = 

20 ON SQ(1) GOSUB 1000 

30 PRINT a; 

40 GOTO 30 

1000 a=a+10 

1010 SOUND 1,3,200 

1020 IF a<200 THEN ON SQ(1) GOSUB 1000 

1030 RETURN 

run 



Ce programme, comme vous pouvez le constater, n'effectue jamais de pause. La com- 
mande SOUND n'est appelee que si la file d'attente du canal A (numero 1) contient une 
place fibre, ce que la commande ON SQ(1 ) GOSUB est chargee de verifier a la ligne 
20. Cette commande initialise un mecanisme d'interruption qui appelle le sous- 
programme sonore lorsqu'un espace fibre apparait dans la file. La commande ON SQ 
GOSUB doit etre reinitialisee apres appel du sous-programme, ce que fait la ligne 
1020. Dans notre exemple, le sous-programme sonore se reinitialise tant que « a » est 
inferieur a 200. 



II est possible de demander a 1'ordinateur de jouer une musique de fond tout en executant 
un programmme complet (deplacement d'objets a l'ecran, calculs etc.). II suffit pour cela 
de faire jouer les notes par un sous-programme qui sera appele seulement lorsque la file 
d'attente comportera une place libre. Le programme n'effectuera jamais de pause en 
attendant qu'une place se libere. En fournissant les notes a ce sous-programme sous 
forme destructions DATA, il serait tres simple de lui faire cesser de se reinitialiser juste 
avant de lire la derniere donnee. 

Le nombre place entre les parentheses de la commande ON SQ( ) GOSUB est 1, 2 ou 
4 selon le canal dont la file d'attente doit etre sollicitee. 

II existe une fonction SQ( ) permettant d'interroger Tetat d'un canal sonore donne, 
qu'on designera de meme par le nombre 1,2 ou 4. Cette fonction restitue un nombre dont 
chaque bit porte une signification et dont Interpretation necessite quelques connaissan- 
ces des nombres binaires. Les bits contenus dans les valeurs obtenues ont la signification 
suivante : 

BIT DECIMAL SIGNIFICATION 

0,1,2 1,2,4 Nombre de places fibres dans la file 

3 8 Rendez-vous avec A pour la note en tete de file 

4 16 Rendez-vous avec B pour la note en tete de file 

5 32 Rendez-vous avec C pour la note en tete de file 

6 64 File bloquee 

7 128 Une note en cours d'execution 

Voyons un exemple tres simple : 

10 SOUND 2,2013 

20 x=SQ<2) 

30 PRINT BIN$(x) 

run 

> 

Le nombre binaire obtenu (1 0000100) contient le bit 7 indiquant que le canal etait 
en activite au moment ou la fonction SQ a ete utilisee. Les trois derniers chiffres (100) 
correspondent au nombre decimal 4 : il reste done quatre places fibres dans la file. Cette 
fonction permet de connaitre I'etat d'une file a un point donne du programme, alors que 
ON SQ( ) GOSUB interroge celui-ci, puis reagit en consequence a un moment imprevi- 
sible. 

Les exemples cites jusqu'a present ne prevoyaient remission que d'une, voire deux notes 
a la fois. Nous allons main tenant considerer la possibility de manier des ensembles de 
notes independantes les unes des autres (un morceau de musique, par exemple) en les 
entrant sous forme d'une commande DATA lue (READ) par la commande SOUND. 



10 FOR octave=-l TO 2 

20 FOR x=l TO 7:REM notes par octave 

30 READ note 

40 SOUND l,note/2Toctave 

50 NEXT 

60 RESTORE 

70 NEXT 

80 DATA 426,379,358,319,284,253,239 

run 

Notre dernier exemple de programme sonore montre ce qu'il est possible de realiser a 
partir de ces elements. Un rythme et une melodie sont joues sur les canaux A et B 
synchronises au moyen de rendez-vous. L'exemple montre comment introduire dans une 
intruction DATA des informations concernant les notes, les octaves, les durees et les ren- 
dez-vous : 

10 REM ligne 190 donne la clef de SOL 

20 REM ligne 200 donne la clef de FA 

30 DIM gamine'/. (12): FOR x7.=l TO 12:READ gamme7. (x7.) :NEXT 

40 cal7.= l:READ cal*: ca27. = l : READ ca2$ 

50 CLS 

60 vif/,=12 

70 gamme*=" a-b b c+c d-e e f+f g+g" 

80 ENV 1,2,5,2,8,-1,10,10,0,15 

90 ENV 2,2,7,2,12,-1,10,10,0,15 

100 ENT -1,1,1,1,2,-1,1,1,1,1 

110 DEF FNm»<s$,s)-MID$(s$,5,l) 

120 cai7.= l:G0SUB 200 

130 ca27.= l:G0SUB 380 

140 IF cal7.+ca27.>0 THEN 140 

150 END 

160 DATA &777,S<70c,&6a7,« ( 647, &5ed, &59B 

170 DATA &547,&4fc,&4b4,&470,St431,&3f4 

180 DATA 4cr4f4f If Iglal-b2c2f 4g2glal-b6a2cr If lg lal-b Ial-b2c2 

g2a2g2f Igla2g2f 6e2c2e2c2g2e2cl-bla2g2f 4e4d8c4f 3f Ic2d4-b2f r2- 

b2a2g2f6e2gr 

4c4-blalf l-blg2c2-b4a4g4fr6a2a2-b4b2ar2-b2a2g2f6e2g4c4-blalf 

l-blg2c2-b4a4g8f . 

190 DATA r4f4f8f4e4c4fr8f4e2f2e4d2e2d8c8c6e2f4g4g8e4f3f lc4dr 

8g4cr4e4c6f2d4c4c8fr8-e4dr8g8c4e4c6f2d4c4c8f . 

200 REM envoi le son sur le canal A 

210 pl*=FNm$(cal$,cal7.) 

220 IF pl$<>"r" THEN rl7.=0:6OTO 240 

230 r 1 '/.= 1 6 : calX=cal U 1 ! p l*=FNfH* (ca 1 $ , ca 1 7. ) 



240 IF pU=". H THEN caiX=0: RETURN ELSE llX«VAL<pi») 

250 calX = c.alX+i 

260 nl*=FNm*<cal*,caiX) 

270 calX=calX+l 

280 IF nl*a"+" OR ni*="-" THEN 350 

290 nl* = " u +nl$ 

300 ndlX=(l+IN5TR(gamme$, LOWER* <nl$) ) ) (2 

310 IF ASC(RIGHT*(nl*, t) ) >96 THEN olX=8 ELSE -olX-16 

320 SOUND l+rlX,gammeX(ndl7J/olX,vitX*llX, 1,1 

330 ON SQ(1) GOSUB 200 

340 RETURN 

350 nl$=nl$+FNm*(cal$,cal7J 

360 calX=calX+l 

370 GOTO 300 

380 REM envoi le son sur le canal B 

390 p2*=FN<n*(ca2*,ca2X> 

400 IF p2*<>"r" THEN r2X=0:GOTO 420 

410 r2X=8:ca2X=ca2X+l:p2*=FNm*<ca2*,ca2X> 

420 IF p2S= n ." THEN caX=B:RETURN ELSE 1 2X*VAL <p2$) 

430 ca2X=ca2X+l 

440 n2*=FN«*(ca2*,ca2X) 

450 ca2X-ca2X+l 

460 IF n2**"+" OR n2*= H -" THEN 530 

470 n2*=" n +n2* 

480 nd2X=(l + INSTR (gamine*, LOWER* (n 2*) ) )/2 

490 IF ASC(RIGHT*(n2*,t)) >96 THEN a27. = 4 ELSE o2X«8 

500 SOUND 2+r2X,gammeX(nd2X)/o2X,vitX*12X,fl,2 

510 ON SQ<2) GOSUB 380 

520 RETURN 

530 n2*=n2*+FNm*(ca2*,ca2X> 

540 ca2X=ca2X+l 

550 GOTO 480 

run 



Si nous parlions graphiques ? 

La partie qui suit est consacree aux fonctions graphiques de l'AMSTRAD 664, dont nous 
allons, a partir d'un premier exemple, decouvrir tour a tour les points essentiels. 

Nous allons commencer par partager l'ecran en deux : une fenetre de texte (ligne 40) et 
une fenetre graphique (ligne 30). Puis nous choisirons un MODE, ainsi que deux cou- 
leurs <^*™ntantes (ligne 20). 



10 REM MASK et TAG dans les fenetres 
20 MODE 1: INK 2, 10, 4: INK 3,4,10 
30 ORIGIN 440,100,440,640,100,300 
40 WINDOW 1,26,1,25 
50 CLG 2 

En executant ce programme, vous allez voir apparaitre un carre clignotant au milieu de 
la moitie droite de l'ecran. La ligne 50 attribue a ce carre l'encre numero deux (bleu som- 
bre et rose alternes). La ligne 30 positionne le point d'origine des coordonnees sur le coin 
inferieur gauche du carre tandis que la commande MODE y place le curseur (X = 0, 
Y = 0). On peut maintenant tracer une diagonale a Faide de la ligne 60 : 

60 DRAW 200,200,3 

Executez le programme, puis ajoutez la ligne suivante : 

80 MOVE 0, 2: FILL 3 

La ligne 80 pose le curseur graphique a Pinterieur d'une des moities du carre, qu'elle 
colore au moyen de l'encre 3. Les limites de ce coloriage sont le bord de la fenetre (qui 
est aussi celui de notre carre) et tout element graphique trace par le stylo graphique utilise 
(le 3) ou pour lequel on a indique la meme encre que celle du remplissage (la numero 3 
egalement). 

Executez le nouveau programme : 

Verifiez ce qui a ete dit a propos des limites du coloriage, en ecrivant la ligne 70. 

70 GRAPHICS PEN 1 
run 

Remarquez bien que si l'encre de la diagonale n'etait pas la meme que celle du coloriage, 
c'est le carre tout en tier qui serait colorie, ce que vous pouvez verifier en rempla<?ant FILL 
3 par FILL 1 dans la ligne 80. Revenez ensuite a l'etat initial (FILL 3). 

Dessinons maintenant un cadre : 

100 MOVE 20,20 

110 DRAW 180,20 

120 DRAW 180,180 

130 DRAW 20,180 

140 DRAW 20,20 
run 



L'encre 1 du cadre a ete indiquee par la ligne 70. Si celle-ci n'existait pas, il nous faudrait 
ajouter l'indication " ,1 ", soit comme troisieme parametre de la commande MOVE en 
ligne 1 00, soit comme troisieme parametre de la commande DRAW en ligne 110. L'or- 
dinateur saurait alors qu'il lui faut changer de stylo graphique. 



Du point a la ligne... 

Une ligne peut etre pleine, ou en pointilles. La commande MASK permet de determiner 
la taille des pointilles. On definit pour cela une sequence se reproduisant tous les huit 
pixels et se poursuivant ainsi de ligne en ligne. II est possible de revenir au debut de cette 
sequence par rintermediaire d'une nouvelle commande MASK reprenant les memes 

parametres. 

La sequence est representee au moyen d'un octet dont la disposition interne determine 
I'emplacement de l'encre. Nous utiliserons dans notre exemple un nombre binaire 
constant (indique par le code &X) pour deflnir un segment dont seuls les quatre pixels 
centraux seront dessines, les deux pixels de chaque extemite n'apparaissant pas. Cette dis- 
position nous donnera une suite de tirets de quatre pixels espaces de quatre pixels. Voici 
la ligne qui accomplit ce prodige : 

90 MASK U111100 
run 

Mais pourquoi ce programme ne respecte-t'il pas la sequence choisie lorsqu'il trace un 
coin ? Tout simplement parce que le coin est trace deux fois : en tant que dernier point et 
premier point des lignes qui le composent. On peut contourner ce probleme comme ceci : 

115 MOVE 180,22 

125 MOVE 178,180 

135 MOVE 20,178 
run 

On obtient bien Teffet desire, mais il y a beaucoup plus simple. Si Ton ajoute a la com- 
mande MASK un second parametre " ,0 ", Tordinateur ne trace pas le premier point de 
chaque ligne. Corrigeons alors la ligne 90 : 

90 MASK &00111100,0 

...et effacons les lignes que nous venions d'ajouter en entrant : 

115 
125 
135 



Le cadre trace en pointilles par notre programme a maintenant un aspect symetrique. Si 
le second parametre de MASK etait fixe a " ,1 ", la commande tracerait a nouveau le 
premier pixel de chaque ligne. 

Mais regardez de plus pres les espaces separant les tirets : ceux du triangle inferieur ont 
quelque chose de plus que ceux de triangle superieur. II s'agit du papier graphique auquel 
la commande CLG 2, ligne 50, a attribue Tencre 2. L'encre 2 etant aussi la couleur du 
fond, le papier graphique est invisible dans le triangle superieur. Modifions done la ligne 
50 

50 CLB 2:GRAPHICS PAPER 

...et faisons tourner le programme : la couleur du papier se detache maintenant tout 
autour du cadre. 

On peut egalement choisir un papier graphique « transparent » si Ton desire que les espa- 
ces d'une ligne pointillee laissent transparaitre le trace sous-jacent. On obtient un trace 
transparent en ajoutant a la commande GRAPHICS PEN le parametre " ,1 " (le para- 
metre " ,0 " nous ramene au trace opaque). Modifiez done la ligne 70 : 

70 GRAPHICS PAPER 1, 1 
run 

...et voyez le resultat. 

Sur la position du curseur graphique, il est non seulement possible de tracer des lignes ou 
des points, mais aussi d'inscrire du texte. Cette caracteristique permet de positionner les 
caracteres avec une bien plus grande precision (a un pixel pres, au lieu de huit) et de les 
agrementer en jouant sur les differents modes d'encre graphique (voir plus haut). 

Pour ecrire sur l'ecran graphique, positionnez d'abord le curseur a Fendroit ou devra se 
trouver le caractere de gauche, puis entrez la commande TAG (ou TAG#1 , 2 etc... selon 
le canal desire) suivie des commandes PRINT usuelles. Le curseur graphique se deplace 
automatiquement de 8 pixels vers la droite a chaque caractere trace. Essayez vous-meme : 

160 Mty/E 64, 108 

170 TAG 

180 PRINT n SALLY" 

190 TAGOFF 

run 



Bien que les messages emis par le BASIC s'affichent sur la fenetre de texte sans tenir 
compte de Findicateur TAG /TAG OFF, il est bon de s'habituer a annuler la commande 
TAG des que Ton n'a plus besoin d'elle. 



Mais que represented ces fleches a droite du nom ? Ce sont les symboles du retour chariot 
CHR$(13) et du changement de ligne CHR$(10). Le logiciel graphique convertit les 32 
premiers caracteres ASCII sous leur forme visualisable, comme s'ils etaient diriges sur la 
fenetre texte precedes de CH R$(1 ). La raison en est que ces 32 caracteres de controle ne 
sont utiles qu'a l'interieur de la fenetre texte. Dans le meme ordre d'idees, aucun bouclage 
du texte n'est prevu lorsqu'on depasse la marge droite de la fenetre graphique. 

Pour eviter l'affichage des symboles de retour chariot et de changement de ligne, on a 
recours au point- virgule a la fin de la commande PRINT : 

180 PRINT"SALLY U ; 
run 

Le texte dirige sur une fenetre graphique est conditionne par les commandes 
GRAPHICS PEN regissant le trace de lignes. Nous trouvant sous la commande 
GRAPHICS PEN 1, le nom est done ecrit en mode transparent. Si nous passons a la 
commande : 

150 GRAPHICS PEN 1,0 
run 

...nous aurons de nouveau le papier opaque, tandis que : 

150 GRAPHICS PEN 0,1 
run 

...ecrira avec Tencre numero (transparente). 

Executez maintenant le programme apres avoir efface la ligne 150. Vous remarquez 
alors que le stylo graphique a retrouve Tencre numero 1 + le mode transparent indiques 
en ligne 70. 



Les caracteres transparents 

II est possible, au moyen de certains codes de controle, d'ecrire sur l'edran de texte en 
caracteres transparents. Ajoutez au programme les lignes : 

200 PRINT #2,CHR*<22);CHR$(1) 

210 LOCATE #2,32,14:PRINT #2,"****** 

220 LOCATE #2, 32, 14: PRINT #2," 

230 PRINT #2,CHR$(22)}CHR$(0) 
run 

La ligne 200 etablit le mode transparent sur le canal #2. Vous pouvez constater que le 
soulignement apparait « par dessus » les asterisques : il est done possible de superposer 
plusieurs caracteres, meme de couleur differente. La ligne 230 annule le mode transpa- 
rent et le canal #2 revient done au mode opaque. 



Les modes d'encre 

II existe un mode d'encre graphique permettant I'interaction entre l'encre utilisee et celle 
qui se trouve deja sur Tecran. L'ordinateur calcule alors pour chaque pixel une encre 
resultante obtenue par combinaison logique des deux encres (stylo ou papier) utilisees. 
On dispose ici des operateurs logiques XOR, AND et OR. Le mode d'encre peut etre 
defini soit par le quatrieme parametre des commandes DRAW/DRAWR, 
PLOT/PLOTR ou MOVE/MOVER, soit en ajoutant a la commande PRINT la 
sequence de controle CHR$(23) ; CHR$(<mode>). Dans tous les cas, 1 correspond a 
XOR (OU exclusif), 2 a AND (ET) et 3 a OR (OU). La valeur retablit le mode normal, 
dans lequel la nouvelle encre utilisee apparait « telle quelle ». 

On verra dans Texemple qui suit une utilisation de l'operateur XOR. Cet operateur a la 
propriete de restituer 1'image originale lorsqu'on trace deux fois le meme motif et est done 
souvent employe avec la tortue graphique. Vous constatez par ailleurs que le sous- 
programme tra^ant le carre est execute deux fois (lignes 1 1 et 1 30), ainsi que la com- 
mande PRINT associee a TAG (ligne 170 et 190). La commande FRAME provoque 
un temps d'attente suffisamment long pour nous permettre d'observer I'effet produit. 
Remarquez que les commandes de la ligne 90 permettent de se dispenser du premier 
parametre : celui-ci reste par defaut a sa valeur anterieure. 

Le troisieme parametre de la commande MOVE (ligne 220) donne a la commande 
GRAPHICS PEN la valeur 1 , qui se substitue a la valeur 3 fixee en ligne 60. Le mode 
XOR est etabli par le quatrieme parametre de la commande DRAWR (ligne 230). 
Remarquez la encore le parametre absent. 

On peut faire reapparaitre Timage recouverte en annulant la commande MASK (ligne 
90). Vous voyez egalement que les coins du carre ont disparu : en effet, apres avoir ete 
traces deux fois (a la fin d'une ligne et au commencement d'une autre), ils ont ete annule 
par l'operation XOR. 

10 REM modes d'encre XOR 
20 MODE 1: INK 2, 10: INK 3,4 

30 ORIGIN 440,100,440,640,100,300 

40 WINDOW 1,26,1,25 

50 CLG 2:GRAPHICS PAPER 

60 DRAW 200,200,3 

70 MOVE 2,0:FILL 3 

80 ORIGIN 440,0,440,640,0,400 

90 GRAPHICS PEN ,1:MASK ,0 

100 FOR y=60 TO 318 STEP 2 

110 GQSUB 220 

120 FRAMEsFRAME 

130 GQSUB 220 



140 NEXT 




150 TAG 




160 FOR y=60 TO 318 


STEP 2 


170 MOVE 96,y:PRINT 


CHR$(224); 


180 FRAME:FRAME 




190 MOVE 96,ysPRINT 


CHR$(224); 


200 NEXT 




210 END 




220 MOVE 90,y,l 




230 DRAWR 20,0,,1 




240 DRAWR 0,20 




250 DRAWR -20,0 




260 DRAWR 0,-20 




270 RETURN 
run 





Inanimation graphique 

II est possible, en modifiant les couleurs affectees aux encres, d'obtenir un effet d'anima- 
tion. L'effet de mouvement est ainsi cree alors que le contenu de la memoire d'ecran reste 
inchange. Un exemple d'application de ce procede se trouve d'ailleurs dans le programme 
de « Bienvenue » de votre disque-systeme maitre (vous pouvez assister a cette demonstra- 
tion en lan^ant la commande RUN " disc"). Cependant, l'effet de « palette cligno- 
tante » utilise dans cet exemple est insuffisant lorsque les formes successives constituant 
l'animation doivent se chevaucher. Le programme qui suit inscrit les chiffres 1 a 4 sur 
l'ecran a l'aide d'encres combinees entre elles par Toperateur OR. Le programme deter- 
mine par balayage le graphisme des caracteres affiches dans le coin inferieur gauche de 
l'ecran, puis le reproduit sous forme aggrandie. Les nomtres successifs sont ecrits en 
combinant les encres 1, 2, 4 et 8 en mode OR. On a eu ici recours a une sequence de 
caracteres de controle (ligne 50). 

Les lignes 1 60 et suivantes font tourner la palette en accord avtc une formule mathema- 
tique : les nombres reproduits en graphique sont alors affichee « T n par un. Le choix de 
l'encre se fait en examinant tour-a-tour chacune d'entre elles pour determiner si elle 
contient la sequence binaire donnee : le nombre 3, par exenple, est dessine avec l'encre 
numero 4. Pour le faire apparaitre, il faudra done rendre viable • testes les encres dont le 
numero contient 4 en binaire, e'est-a-dire : 

4(0100),5(0101),6(0110),7(0111),12(1100),13(1101),14(1110),15(1111). 

Dans une application pratique, les encres modifiees a chaque stade de l'animation 
seraient calculees a l'avance, si bien qu'on pourrait accelerer la partie de ce programme 
comprise entre les lignes 1 80 a 200. 



10 REM animation par les couleurs 

20 ON BREAK GOSUB 220 

30 FOR i=l TO 15: INK i , 26:NEXT 

40 m(i)=l:m(2>»2:m(3)=4:m(4)=8 

50 MODE 0:PRINT CHR* (23) ; CHR$ (3) ; : TAG 

60 FOR p = l TO 4 

70 GRAPHICS PEN ffl(p), 1 

80 LOCATE #1,1, 25: PRINT #1 , CHR$ (48 + p ) ; 

90 FOR x=0 TO 7 

100 FOR y=0 TO 14 STEP 2 

110 IF TEST(x*4,y)=<3 THEN 140 

120 MOVE (x+6)*32, (y + 6) * 16: PRINT CHR$(143); 

130 MOVE (x+6)*32, (y+7) t 16: PRINT CHR$(143); 

140 NEXT y,x,p 

150 LOCATE #1, 1,25:PRINT#1, " "5 

160 FOR p=l TO 4 

170 FOR 1=1 TO 25:FRAME:NEXT 

180 FOR i=0 TO 15 

190 IF (1 AND m(p))=0 THEN INK 1,0 ELSE INK i , 26 

200 NEXT i,p 

210 GOTO 160 

220 INK 1,26 

run 



Plans colores 

L'exemple precedent nous a montre comment animer a l'aide des changements de couleur 
des graphiques traces avec les encres 1, 2 et 8. On peut, avec les memes encres et en utili- 
sant les couleurs differemment, creer un effet completement different appele « plans colo- 
res ». En voici un exemple : 

10 REM Montagnes 
20 DEFINT a-z 
30 INK 0, 1: INK 1,26 
40 INK 2,6: INK 3,6 

50 FOR i=4 TO 7: INK i , 9: NEXT 

60 FOR i=8 TO 15: INK i , 20: NEXT 

70 MODE 0:DEG:ORIGIN 0, 150: CLG: MOVE 0,150 

80 FOR x=16 TO 640 STEP 16 



98 DRAW x,C0S<x)*t58 + RNDUBB,4 

100 NEXT 

1 10 MOVE 0,0:FILL 4 

120 cx=17S:GOSUB 320 

130 cx=525:G0SUB 320 

140 SYMBOL 252,B,8 l *C l *lF,fc3B,i7F,fcFF 

150 SYMBOL 253,ai6,4E,leF2 f 2,&F2,«tFE 

160 SYMBOL 254,0, 660, &7B, fc7F, fc7F, &7F, &7F 

170 SYMBOL 255,0,0,0,&F8,&EC,S<FE,&FF 

180 pr$=CHR$(254)+CHR$(255) 

190 pl$=CHR$(252)+CHR$<253) 

200 TAG:t!=TIME 

210 FOR x = -32 TO 640 STEP 4 

220 x2=< <608-x)*2)MOD 640: hi =RND* 10: hr=50*5IN < x ) 

230 GRAPHICS PEN 8,1: MOVE x , 100+hr , , 3: PRINT pr$; 

240 GRAPHICS PEN 2,t:MQVE x2, 1 15+hi , , 3: PRINT pi*; 

250 IF <TEST(x2-2,il5+hl-i2> AND 8)=8 THEN 38B 

260 IF TIME-t I <30 THEN 260 

270 FRAME:t!=TIME 

280 GRAPHICS PEN 7,1: MOVE x , 100+hr , , 2: PRINT pr$; 

290 GRAPHICS PEN 13,1: MOVE x2 , 1 13+hl , , 2: PRINT pl$; 

300 NEXT 

310 GOTO 210 

320 MOVE ex, 100 

330 FOR x=0 TO 360 STEP 10 

340 DRAW cx+SINU)*50+i0*RND,100+CQS(x)*25+10*RND, 1 

330 NEXT 

360 DRAW cx,100:MOVE cx,90:FILL 1 

370 RETURN 

380 ENT -1,1,1,1 

390 SOUND 1,25,400, 15, , 1, 15 

4B0 FOR y=100+hr TO -132 STEP -2 

410 GRAPHICS PEN 7,l:MOVE x,y,,2:PRINT pr$; 

420 GRAPHICS PEN 8,1:M0VE x , y-2, , 3: PRINT pr*; 

430 NEXT 

440 GOTO 70 

run 

La encore, le fonctionnement de ce programme repose sur la forme binaire du numero 
d'encre. Tous les numeros d'encre comprenant le bit « 8 » (2 3 ) (de 15 a 8) sont sur bleu 
sombre. Les numeros d'encre contenant le bit « 4 » (2 2 ) sont sur vert. Les encres 2 et 3, 
contenant chacune le bit « 2 » (2 1 ) sont sur rouges, et 1'encre 1 (2°), pour finir, est sur 
blanc brillant, Tencre restant bleue. 



Les formes graphiques sont placees a l'ecran selon la fonction OR (lignes 230 a 240). 
La couleur affichee est determinee par le bit de poids fort resultant sur chaque pixel. Une 
image situee sur un plan a bits de poids fort est done toujours predominate ; l'arriere 
plan ne disparait pas et redevient visible lorsque cette image est effacee. Pour effacer une 
image, on utilise le mode d'encre AND avec les encres 7, 1 1 , 13 ou 14 a la place des encres 
8, 4, 2 et 1 respectivement (lignes 280 et 290). 

Chacun des 4 programmes ci-dessus illustre une utilisation particuliere du CPC664 en 
mode graphique. Les applications graphiques represented Tun des aspects les plus pas- 
sionnants de l'informatique. Tout depend du programmeur, e'est-a-dire de vous... II est 
impossible de donner ne serait-ce qu'un aper^u des immenses possibilites graphiques de 
cet ordinateur dans le cadre d'un simple manuel destruction. Vous avez done tout inte- 
ret a experimenter par vous-meme l'ensemble des commandes et fonctions graphiques 
que nous avons decrites. 

Et 1'ordinateur ? 

Pour conclure ce chapitre, quelques mots sur le contenu de votre ordinateur. 

La piece maitresse du CPC664 est le microprocesseur Z80. II possede egalement une 
ROM de 32 K adressable par moities. La moitie superieure contient l'interpreteur BASIC 
implante entre les adresses &C000 et &FFFF. La moitie inferieure (de &0000 a &4000) 
est reservee aux microprogrammes charges des taches de gestion interne telles que le fonc- 
tionnement de la machine, l'interrogation du clavier, la gestion de l'ecran, etc... 

Le CPC664 comporte egalement une UAL permettant a l'unite centrale 8 bits d'adresser 
plus de 64Ko de memoire. C'est ainsi que l'ecran et la ROM BASIC peuvent etre geres 
avec la meme zone d'adresses. Le controleur video 6845 utilise les 16Ko superieurs de 
memoire vive pour stocker les informations necessaires a la gestion de raffichage couleur. 
L'interrogation du clavier se fait au moyen du port parallele 8255, qui assure egalement 
le controle du generateur de sons AY-3-8912. 

Le port de sortie de Timprimante est un latch 8 bits. Les donnees sont transmises sur 7 
bits, le huitieme etant utilise pour transmettre le signal de mise en sevice. Tous les signaux 
standard du bus Z80 sont relies au connecteur plat du port d'extension, $ans etre tam- 
ponnes. 

Vous trouverez tous les details concernant les caracteristiques techniques de cet ordina- 
teur, en particulier les schemas de principe, les schemas des circuits imprimes, etc... dans 
le manuel d'entretien du CPC664, disponible chez votre revendeur AMSTRAD. 



Annexe 1 

Contrat d'utilisation des logiciels 

Digital Research & AMSTRAD 

NOTICE A LIRE ATTENTIVEMENT PAR L'UTILISATEUR 



NOUVREZ PAS VOTRE PROGICIEL AVANT D' AVOIR LU CE 
CONTRAT. L'OUVRIR IMPLIQUE VOTRE ACCORD AVEC LES CONDI- 
TIONS ET LES LIMITES D'UTILISATION DEFINIES CI-DESSOUS. 



1. Definitions 

Dans ce contrat, le terme : 

1. DRI signifie DIGITAL RESEARCH (CALIFORNIE) INC, proprietaire des droits 
d'auteur et des brevets des programmes. 

2. Machine signifie le micro-ordinateur sur lequel vous utilisez le programme. Les syste- 
mes a plusieurs micro-ordinateurs requierent fobtention de licences supplementaires. 

3. Programme signifie Fensemble des programmes, de la documentation et du materiel 
s'y rapportant, ainsi que toutes les annexes et les mises a jour qui pourraient vous etre 
fournies par DRI, quelle que soit l'utilisation que vous en faites ou les modifications 
que vous y apportez. 

4. AMSTRAD signifie AMSTRAD CONSUMER ELECTRONICS PLC, Brentwood, 
ESSEX. 

Vous assumez la pleine responsabilite du choix de votre programme, de sa mise en 
service, de son utilisation et des resultats qui en decouleront. 



2, Licence 

Vous pouvez : 

1. Utiliser le programme sur une seule machine. 

2. Copier le programme sur support magnetique ou sur papier pour la duplication ou la 
modification du programme dans le cadre de l'utilisation sur une seule machine. Vous 
pouvez faire jusqu'a trois copies pour les raisons invoquees ci-dessus. Certains pro- 
grammes pourront cependant etre congus afin de limiter ou meme d'empecher toute 
copie. lis sont alors reperes en consequence par la mention « copy protected » (protege 
a la copie). La copie de la documentation est interdite. Le desassemblage est interdit. 

3. Modifier le programme et/ou Tincorporer a un autre programme pour votre propre 
usage sur une machine unique. (Toute partie du programme incorporee a un autre 
logiciel continuera a etre sujette aux conditions du present contrat). 

4. Ceder le programme et sa licence a un tiers, a condition de notifier a DRI le nom et 
Fadresse de ce tiers sous reserve que ce tiers : a) accepte les conditions de licence, b) 
signe et envoie a DRI une copie de la carte d'enregistrement et c) paye les taxes de 
transfert. Si vous cedez le programme, vous devez soit en ceder toutes les copies 
(imprimees comme magnetiques) y compris l'original, soit detruire tout ce qui n'a pas 
ete cede. Ceci inclut toutes les modifications et portions de programme contenues ou 
fusionnees dans d'autres programmes. 

Vous devez reproduire et joindre a toutes copies, modifications etc., la notice concer- 
nant les droits de reproductions reserves. 



CHAQUE DISQUETTE POSSEDE UN NUMERO DE SERIE ET VOUS NE 
DEVEZ NI UTILISER, NI COPIER, NI MODIFIER, NI CEDER A UN TIERS 
LE PROGRAMME OU UNE COPIE, UNE MODIFICATION OU UNE PAR- 
TIE FUSIONNEE DU PROGRAMME, SAUF DANS LES CONDITIONS 
PREVUES PAR CE CONTRAT. SI VOUS CEDEZ UNE COPIE, UNE MODI- 
FICATION OU UNE PARTIE FUSIONNEE DU PROGRAMME, VOTRE 
LICENCE EST AUTOMATIQUEMENT ANNULEE. 



3. Echeances 

Votre licence est valable jusqu'a son annulation. Vous pouvez cependant y mettre fin a 
tout moment en detruisant le programme ainsi que toutes ses copies, modifications et 
parties fusionnees. Tl prend egalement fin sous certaines conditions citees plus loin dans 
ce texte, ou si vous ne respectez pas les clauses du present contrat. Vous devez dans ce 
cas detruire le programme ainsi que toutes ses copies, modifications et parties fusionnees. 

4. Limites de garantie 



LE PROGRAMME EST LIVRE TEL QUEL. NI DRI, NI AMSTRAD NE 
GARANTISSENT, SOUS QUELQUE FORME QUE CE SOIT, EXPLICITE- 
MENT OU IMPLICTTEMENT Y COMPRIS LES GARANTIES IMPLICATES 
A TOUT ACHAT DE MARCHANDISE, NI LE PROGRAMME, NI SON 
APTITUDE A ACCOMPLIR UNE TACHE PARTICULIERE. LE RISQUE, 
TANT DU POINT DE VUE DE LA QUALITE QUE DES PERFORMANCES 
DU PROGRAMME, EST ENTIEREMENT VOTRE. SI LE PROGRAMME 
SE REVELE DEFECTUEUX, TOUTES LES CHARGES, REPARATIONS 
OU CORRECTIONS SONT A VOS FRAIS. 



Ni DRI, ni AMSTRAD ne garantissent que les fonctions contenues dans ce programme 
vont correspondre a vos besoins ni que leur deroulement s'effectuera sans interruption 
ou sans erreur. AMSTRAD garantit cependant que la disquette sur laquelle se trouve le 
programme est sans defaut et de bonne fagon, en conditions normales d'utilisation, pour 
une periode de 90 jours a partir de la date d'achat (attestee par une photocopie de votre 
regu). 



5. Limites des recours 

Si votre disquette est defectueuse, AMSTRAD s'engage a la remplacer dans les limites 
de garantie indiquees ci-dessus, sous reserve que vous la retourniez accompagnee de la 
photocopie de votre regu. 



EN AUCUN CAS, NI DRI, NI AMSTRAD NE SERONT RESPONSABLES 
DES PREJUDICES CAUSES, Y COMPRIS LES PERTES EN GAIN, LES 
PERTES EN PROFIT OU LES DOMMAGES INDIRECTS, MEME SI DRI 
OU AMSTRAD ONT ETE AVISES DE LA POSSIBILITE DE TELS PREJU- 
DICES. 



6. Carte d'enregistrement 

DRI se reserve le droit de mettre a jour ses programmes de temps en temps. Les mises a 
jour vous seront fournies seulement dans le cas ou une carte d'enregistrement dument 
signee a ete retournee au siege de DRI. DRI n'est en aucun cas tenu de faire ses mises a 
jour, ni de vous les envoyer. 



7. Generalites 

Vous ne pouvez ceder ni transferer la licence ou le programme, sauf specification expresse 
du contrat. Tout tentative de cession de la licence, ou de transfert des droits, annule le 
contrat. 

Le contrat est regi conformement aux termes de la loi britannique. 

Pour tout renseignement, contactez DRI, a Tadresse suivante : Digital Research Inc., 
P.O.Box 579, Pacific Grove, California 93950. 



CE CONTRAT NE POURRA ETRE MODIFIE QUE PAR UN AMENDE- 
MENT ECRIT FAIT PAR UNE PERSONNE AUTORISEE D'AMSTRAD OU 
DE DRI. TOUTE MODIFICATION APPORTEE PAR ORDRE D'ACHAT, 
DE PUBLICITE OU AUTRE REPRESENTATION NE SERA PAS 
VALABLE. 

VOUS RECONNAISSEZ QUE VOUS VENEZ DE LIRE, DE COMPRENDRE 
ET DAGREER AUX TERMES ET CONDITIONS DE CE CONTRAT. VOUS 
RECONNAISSEZ PAR AILLEURS QUE LES CLAUSES CI-PRESENTES 
CONSTITUENT LA TOTALITE DU CONTRAT ETABLI ENTRE VOUS, 
DRI ET AMSTRAD QUI ANNULE TOUTE PROPOSITION OU ACCORD 
PREALABLE, ORAL OU ECRIT, ENTRE VOUS, DRI ET AMSTRAD ET 
FAIT AUTORITE EN MATIERE DE CONTRAT. 

CE CONTRAT NTNTERVIENT PAS SUR VOS DROITS STATUAIRES. 



Annexe 2 

Petit dictionnaire (frangais et anglais) 

A V intention des utilisateurs du CPC664 

Acces direct 

Mode d'acces permettant de lire ou d'ecrire une information en memoire ou sur disquette 
dans n'importe quel ordre. 

Accumulates 

Emplacement memoire dans le microprocesseur qui retient tempo rairement les donnees 
a manipuler. Note : tres employe en langage machine. Les utilisateurs du BASIC n'ont 
pas besoin de savoir qu'il existe. 

Adresse 

Numero utilise dans une instruction et qui specifie l'emplacement d'une « cellule » dans 
la memoire de Tordinateur. 

Algorithme 

Nom pompeux designant une formule ou une somme complexe ; c'est aussi une sequence 
d'operations arithmetiques qui effectue une tache precise. 

Alimentation 

Designe la source d'energie d'un systeme ainsi que l'electronique necessaire a l'alimenta- 
tion correcte des circuits. 

Alphanumerique 

Qualifie des chiffres et des lettres, par opposition aux caracteres graphiques. 



Amorce (Boot ou Boostrap) 

Sequence destructions qui permet Introduction d'un programme en memoire ROM, 
initialisant ainsi le processus de chargement a un emplacement memoire precis. Note : on 
parle aussi d'amorgage. 



AMSDOS 

Amstrad Disk Operating System : systeme d'exploitation Amstrad permettant au BASIC 
d'acceder a une ou plusieurs disquettes. 



AMSOFT 

Division logicielle d'AMSTRAD qui s'occupe surtout de concevoir, d'organiser et de 
publier tout ce qui est necessaire a votre CPC664 et a ses nombreuses possibilites d'exten- 
sion. 



A/N 

Voir Analogique 

Analogique (Analog en anglais) 

Qualifie une grandeur qui ne presente aucune discontinuity ni dans le temps ni en ampli- 
tude. Note : Tordinateur etant par essence un appareil numerique, il doit done etre muni 
de convertisseurs A/N (analogique/numerique) pour analyser des grandeurs analogiques. 

Animation 

Effet de « dessin anime » qui se produit lorsque Tordinateur deplace des elements graphi- 
ques, donnant ainsi l'illusion du mouvement. 

Architecture 

Organisation materielle de Tordinateur et de ses peripheriques, qui permet d'etablir les 
relations avec le bus de donnees, les echanges internes ou externes, etc. 



Argument 

Terme mathematique designant une variable independante. Par exemple, dans l'expres- 
sion x + y = z, x et y sont les arguments. 



ASCII 

Code quasiment universel qui permet de representer les nombres, lettres et autres symbo- 
les obtenus a partir du clavier ou d'un autre type de commande. 



Assembleur 

Methode pratique de programmation en code machine, ou les instructions en code sont 
appelees par des mnemoniques (lettres qui suggerent une fonction, ADD pour addition 
par exemple). 



Autonome 

Se dit d'un materiel lorsqu'il fonctionne independamment de tout autre. 

Base 

Premiere consideration d'un mathematicien quand il joue avec les nombres : en binaire 
pour la base 2, en hexadecimal pour la base 16 et en decimal pour la base 10. Plus facile 
a comprendre pour les enfants que pour leurs parents. 

Base de donnees 

Ensemble de donnees ayant des liens entre elles, pouvant aller du simple fichier a une 
organisation complexe de dossiers relies les uns aux autres. 

BASIC 

Langage simplifie de programmation dont l'appellation provient de Tanglais Beginners 
All-Purpose Symbolic Instruction Code. Note : il permet une programmation interactive 
et a ete congu pour un apprentissage facile. On peut essayer un programme a tout 
moment alors que pour les programmes compiles (voir ce mot) on doit d'abord appeler 
le compilateur. 



BAUD 

Unite de mesure du passage des donnees dans une transmission en serie egale, la plupart 
du temps, au nombre de bits par seconde. 



BCD (Binary Coded Decimal = Decimal Code Binaire - DCB) 

Systeme permettant de coder les nombres decimaux, chaque chiffre etant represente par 
un groupe de 4 bits. 



BDOS (Basic Disk Operating System) 

Module d'exploitation des disquettes. C'est une partie du CP/M qui sert d'interface entre 
le programme utilisateur et les fonctions du CP/M. 



Binaire (nombre) 

Nombre represente en notation binaire. Note : avec le CPC664 ils sont designes avec le 
prefixe &X, par exemple &X0101 est egal au nombre decimal 5. 



BIOS (Basic Input Output System) 

Module de gestion des entrees/sorties. II s'agit de la partie de CP/M dependante du mate- 
riel, specialement ecrite pour un type d'ordinateur. Toutes les entrees/sorties (ecran, cla- 
vier, disquette, etc..) sont gerees par le BIOS. 



Bit 

Information representee par un symbole a deux valeurs notees et 1 dans le systeme 
binaire, et que Tordinateur reproduit par des moyens electroniques. 



Bit significatif 

Nombre dont la signification n'apparait qu'en binaire et dont l'influence dans un octet 
est preponderante. 



Bogue 

Voir Bug 



BOOLE (Algebre de) 

Utilisee dans les tables de verite, ou 1 veut dire vrai et signifie faux. 

Boot 

Voir Amorce 

Bootstrap 

Voir Amorce 

Boucle 

Procede de programmation au cours duquel l'ordinateur repete l'execution de plusieurs 
lignes jusqu'a ce qu'une condition soit remplie. 



Bruit 

Les capacites sonores du CPC664 permettent egalement d'introduire un nombre variable 
de bruits aleatoires pour creer des effets sonores, des explosions par exemple. 



Bug 

En Anglais c'est une bestiole. En informatique, c'est ce qui fait qu'un programme se 
« plante » : c'est l'erreur, le pepin, au sens le plus large. En Frangais, on a propose le 
terme « bogue » equivalent de « bug ». 



Bus 

Systeme de connexions entre l'ordinateur, les peripheriques et le monde exterieur qui 
transporte 1'information concernant l'etat du microprocesseur, la RAM et d'autres ele- 
ments materiels. Le Bus du CPC664 est la prise la plus importante a Farriere de la 
machine. 



Byte 

Voir Octet 



CAD 

Voir CAO 

CAE 

VoirEAO 

Canal (Stream) 

Voie de communication entre Pordinateur et ses peripheriques (imprimante, ecran, dis^ 
quette, cassette, etc.). 



CAO (Computer Aided Design - CAD) 

Conception Assistee par Ordinateur, a savoir Tensemble des techniques informatiques 
utilisees dans les bureaux d'etudes lors du processus de conception d'un produit nouveau. 



Caractere 

Tout symbole qui peut etre represents : lettres, chiffres ou symboles de ponctuation et 
graphiques (Annexe 3) 



Caracteres (chaine de) 

Ensemble de caracteres utilise comme un tout pour permettre des traitements et des mani- 
pulations de texte. 



Caracteres (jeu de) 

Toutes les lettres, nombres et symboles disponibles sur un ordinateur ou une imprimante. 
Si un caractere existe sur un ordinateur, cela ne veut pas obligatoirement dire qu'il peut 
etre recu par une imprimante quelconque. 



Cartouche 

Ensemble de circuits integres specialement programmes se branchant sur une prise parti- 
culiere de l'ordinateur. Note : Bien qu'ils soient plus onereux que les supports magneti- 
ques, les progiciels qu'ils contiennent se chargent plus facilement et travaillent plus rapi- 
dement que les programmes sur disquette, mais plus chers que les logiciels fournis sur 
disquette. 



Cassette 

Support de la plupart des programmes destines aux micro-ordinateurs familiaux. Etant 
donne que les fichiers sont places les uns apres les autres (en ordre sequentiel), l'acces est 
plus lent que sur les disquettes. 



Catalogue 

Zone de la disquette ou sont notees les entrees de chaque fichier ; une sorte de table des 
matieres de la disquette. 



CCP (Console Command Processor) 

Logiciel de traitement des commandes qui permet, apres que Toperateur ait entre les com- 
mandes au clavier, de les charger et de les executer. 



Chaine 

Souvent sous-entendu alphanumerique. Type de donnee comprenant des chiffres et des 
lettres ne pouvant etre traitee comme une variable numerique. Peut etre numerique, mais 
n'est consideree comme telle que si une commande le precise. 



Clavier 

Serie de touches electroniques similaires a celles d'une machine a ecrire. Note : il existe 
plusieurs types de clavier dont le QWERTY, d'origine anglaise, et TAZERTY, d'origine 
francaise. 



Clavier numerique 

Partie du clavier regroupant des touches numeriques, afin de faciliter Tentree des donnees 
numeriques, et dans le cas du CPC664, des touches de fonction definissables par l'utilisa- 

teur. 



Code a Barres 

Code d'identification de produits, forme de barres noires plus ou moins espacees que seul 
un dispositif special peut lire. Note : vous le trouverez sur la plupart des emballages des 
produits que vous achetez (lait, lessive, biscuits, etc..) 



Code Machine 

Langage de programmation qui est compris par un processeur, toutes les commandes 
etant exprimees en binaire. 



Commande 

Instruction que le programme doit suivre. 

Commande integree 

Commande qui fait partie du systeme d'exploitation. Evitant les delais d'acces, elles sont 
toujours plus rapides que les commandes residant sur disquette. 

Compilateur 

Programme tres complexe qui transforme un programme en langage de haut niveau tel 
que le BASIC, en un programme en code machine directement executable par la machine, 
done tres rapide. 

Coupleur acoustique 

Dispositif electronique qui comprend, entre autres, un microphone et un haut parleur sur 
lequel il est possible de placer un combine telephonique afin de transmettre des donnees 
par ligne telephonique. 

CP/M (Control Program for Microcomputers) 

Programme de controle pour micro-ordinateurs. Note : e'est un des systemes d'exploita- 
tion pour disquette les plus repandus, lance par DIGITAL RESEARCH. 



CPU 

Central Processing Unit : alias le « chef d'orchestre » de l'ordinateur. Note : on trouve 
parfois UCT en frangais pour Unite Centrale de Traitement. 

Crayon optique 

Crayon qui peut parfois dessiner sur Fecran ou saisir des donnees, telles que les codes a 
barres, par exemple. 



Curseur 

Petit carre qui indique ou va apparaitre le prochain caractere sur Fecran. 

Curseur graphique 

Curseur semblable a un curseur de texte, mais se rapportant a Fecran graphique. Un 
concept invisible sur le CPC664 mais indispensable pour dessiner. 

Decimate (notation) 

C'est notre systeme a base 10, avec dix chiffres de a 9 facile a comprendre pour nous, 
mais par pour l'ordinateur, qui ne sait compter qu'en et 1. 

Defilement 

Terme definissant le mouvement ascendant de Faffichage apres remplissage de Fecran 
jusqu'a la derniere ligne, permettant le degagement d'espace requis a pour Fentree ou la 
sortie de nouvelles informations. 

Delimiteur 

Voir Separateur 

Demarrage a chaud 

Lorsque Fon fait un [CTRL]C sous CP/M. Le demarrage a chaud reinitialise le systeme 
d'exploitation sans detruire les donnees en memoire centrale. 



Demurrage a froid 

II s'agit de Tamorce et de Tinitialisation d'un systeme d'exploitation. Le demarrage a froid 
du CP/M se fait par la commande | CP/M sous BASIC. 



Deterioration 

Destruction ou alteration du contenu d'un fichier sur disquette ou de la memoire de 
maniere indesirable et irrecuperable. 



Diagnostic 

Message produit automatiquement par Tordinateur pour indiquer et identifier une erreur 
dans un programme ou dans la machine elle-meme. 



Dialogue ordinateur-peripherique (Handshaking) 

Sequence de signaux electroniques generant, verifiant et synchronisant les echanges de 
donnees entre un ordinateur et un peripherique ou entre deux ordinateurs. 



Digitaliseur (Digitizer) 

Dispositif permettant de convertir des informations de type analogique en type numeri- 
que et de les transmettre a un ordinateur. II est souvent utilise avec les tables graphiques. 
Note : en frangais on trouve parfois le terme « numeriseur ». 



Disque 

Plaque ayant une ou deux surfaces recouvertes d'un oxyde magnetique et qui permet de 
garder les donnees qui y sont enregistrees de maniere permanente. 



Donnees exploitables sur machine 

Donnees ou informations directement exploitables sur ordinateur sans traitement supple- 
mentaire a partir du clavier ou autre. 



DOS (Disk Operating System = systeme Sexploitation sur disque) 
Systeme qui gere Tutilisation des disques, les plus connus etant CP/M, MSDOS et UNIX. 



Double face 

Disquette qui peut emmagasiner des informations sur chaque face, ou unite qui permet 
d'avoir acces aux deux faces sans que Ton ait besoin de tourner la disquette. 

Dr. LOGO 

Logo de Digital Research. II s'agit d'un langage de programmation par lequel une tortue 
materialise le curseur graphique. 



EAO (CAE) 

Enseignement assiste par ordinateur. Ensemble des techniques et des methodes appli 
quant Finformatique dans l'enseignement. 



Editer 

Modifier un programme, des donnees ou un texte. 

Editeur 

Programme habituellement en ROM qui permet le processus d'edition. 

Editeur d'ecran 

Editeur de texte ou de programme permettant le deplacement du curseur en tout point de 
1'ecran pour modifier les caracteres y figurant. 

Enregistrement 

Ensemble d'informations formant un tout logique et physiquement liees dans les opera- 
tions de transfert entre les supports externes et la memoire d'un ordinateur. 

EPROM (Erasable Programmable Read Only Memory) 

Une PROM qu'on peut programmer puis effacer a faide d'un rayonnement ultra-violet. 



Erreur syntaxique 

Erreur apparaissant lorsque les regies du programme sont contrariees par utilisation de 
mots cles ou de variables incorrects ; l'utilisateur en est averti par un message du BASIC. 



Expression 

Formule simple ou complexe qu'on utilise dans un programme pour faire un trait ment 
sur des donnees ; r expression definissant souvent le type de donnees a manipule* . 



Fichier (File) 

Fichier, programme ou groupe de donnees generalement stocke sur une cassette ou sm 
une disquette. 



Firmware (Logiciel integre, Microprogramme) 

Logiciel integre au materiel tel que le BASIC et le systeme d'exploitation en ROM. 

Floppy disk 

Mot anglais pour disquette. 
Voir Disque 

Formatage 

Processus permettant d'organiser un systeme pour retrouver les fichiers et leurs references 
dans des secteurs particuliers de la disquette. 

Forth 

Langage professionnel de programmation rapide, a mi-chemin entre le haut niveau et le 
code machine. 

Generateur de son 

Partie de l'ordinateur (soit un microprocesseur soit un logiciel) qui cree les sons et les 
bruits. 



Generations d'ordinateurs 

Les avances technologiques ont marque les etapes de revolution des ordinateurs et de 
Tinformatique. La cinquieme generation est en gestation, elle devrait permettre a un ordi- 
nateur de se programmer lui-meme en utilisant Intelligence Artificielle (voir ce terme). 



Graphique 

Representation plane d'une fonction mathematique : lignes, cercles, diagrammes, etc. 

Graphisme de la tortue 

Quand la tortue se deplace, elle laisse la trace de son passage sur Tecran graphique de Dr. 
LOGO. 

Hexadecimal 

Systeme de nombres a Base 16. Dans le CPC664 on les precise avec les symboles & ou 
&H. (Par exemple &FF = decimal 255). Voir la premiere partie du chapitre « A vos 
heures de loisir... ». 

Horloge (Clock) 

Pour la synchronisation des operations de 1'ordinateur, horloge interne chargee de don- 
ner l'heure reelle, la date, etc... 

IEEE-488 

Une des interfaces standard permettant de connecter des peripheriques a un ordinateur. 

Imprimante 

Dispositif comparable a une machine a ecrire automatique, branche sur 1'ordinateur, afin 
d'obtenir sur papier les listings et les textes desires. 

Imprimante a marguerite 

Imprimante de tres bonne qualite de frappe et dont les caracteres se trouvent sur les peta- 
les d'une marguerite interchangeable en fonction du type d'ecriture voulu. Peu rapides et 
bruyantes, elles sont tout de meme indispensables pour obtenir un courrier de qualite. 



Imprimante matricielle 

Imprimante avec une grille rectangulaire de points ; la plupart des imprimantes economi- 
ques ou rapides sont de ce type. (L'AMSTRAD DMP1 en est une). 



Informatique 

Tout ce qui touche a la manipulation des ordinateurs et de reformation dans son sens 
large. 



Informatisation du plus grand nombre 

Expression grandiloquente indiquant la mise de 1' informatique a la portee de tous. 

Ingenierie logicielle 

Expression grandiloquente designant la programmation informatique supposant une 
approche structuree et reflechie par opposition aux techniques arbitraires. 

Initialiser 

Demarrer un systeme ou un programme en definissant les valeurs initiales des variables 
ou les caracteristiques initiales de son fonctionnement. 

Instruction 

Ordre ou commande donnes a l'ordinateur pour qu'il effectue une operation particuiiere. 
Un ensemble ou une succession destructions forment un programme. 

Instructions (Jeu d) 

Les procedes arithmetiques et logiques accomplis par le microprocesseur composent le 
jeu destructions. Une simple commande BASIC peut faire appel a des dizaines 
destructions au niveau du microprocesseur. 

Integration a grande echelle (Large Scale Integration - LSI) 

Procede technique qui permet d'integrer sur la meme puce de silicium de plus en plus de 
portes elementaires de logique binaire. 



Intelligence artificielle 

Faculte d'un programme a apprendre et analyser une situation ou une tache precises 
grace a ses experiences passees. 



Interactif 

Un systeme est dit interactif lorsque Tordinateur a besoin de reponses immediates pour 
continuer son programme. Les jeux dependent du mode interactif car Taction du joueur 
modifie la suite du deroulement du programme. On dit que Tordinateur travaille en temps 
reel. 



Interface 

Un mot a la mode informatique pour designer un lien (physique ou mental) entre Tordi- 
nateur et le monde exterieur, y compris Tutilisateur. les interfaces du CPC664 sont par 
exemple le clavier (entree), Tecran (sortie), etc... 



Interface homme-machine 

Jonction entre Tordinateur et Toperateur : clavier, ecran, son, etc... 

Interface parallele 

Le CPC664 en a une pour Timprimante : plusieurs fils paralleles transmettent des infor- 
mations en meme temps, d'ou Tadjectif « parallele ». 

Interface serie 

Par opposition a la precedente, ne peut transmettre qu'un bit a la fois d'une maniere 
sequentielle ; la plus commune est appelee RS232. 

Interpreteur 

Par exemple, Tinterpreteur du CPC664 interprete le BASIC et le traduit en code machine, 
ligne par ligne. La « lenteur » du BASIC vient du fait qu'il traduit la meme ligne plusieurs 
fois si elle est dans une boucle. 



I/O 

Input/output, 1'equivalent anglais des entrees/sorties. 

Iteration 

Une des bases de Tordinateur, qui divise le travail en petits elements simples qu'il repete 
maintes et maintes fois. Cest aussi le systeme des boucles. 

Jeux d' Arcade et d'Aventures 

Entre les envahisseurs de l'espace qui font zap, bing bang et les aventuriers qui font crac, 
bourn, hue, il y en a pour tous les gouts. Les jeux d'aventures qui melent le texte, les 
graphismes et les contes de fees commencent a avoir leurs adeptes. Les Hobbits et le Sei- 
gneur des Anneaux y cotoient les chevaliers de la Table Ronde, 

Jocker 

Soit *, soit ? Le Dr. LOGO n'accepte que le ? Le jocker * remplace n'importe quel nom- 
bre de ? lis sont utilises pour batir des noms de fichiers ambigus. Le ? peut etre n'importe 
quel caractere alphanumerique. 

Joysticks 

Alias manettes de jeux. Remplace les fonctions des touches curseur pour une action plus 
rapide dansles jeux. 



K 

Un K, ou Ko, ou encore Kilo Octet, contient 1024 Octets (2 10). Votre CPC664 a 64K 
de memoire vive, c'est-a-dire 65536 Octets (dans le genre 13 a la douzaine). 



Langage evolue 

Langage 
tion a la< 
employe. 



Langage de programmation proche du langage humain, con^u en fonction de Implica- 
tion a laquelle il est destine et qui est pratiquement independant du type d'ordinateur 



Langage lie a l'ordinateur 

Langage qui doit faire l'objet d'un assemblage afin d'etre converti en code machine requis 
pour sa reconnaissance et son execution par un ordinateur particulier. 



Langages 

Du langage machine, seul compris par Tordinateur, au langage de haut niveau comme le 
BASIC, le COBOL ou le Pascal, en passant par les langages de bas niveau comme l'as- 
sembleur propre a chaque microprocesseur, Tinformatique trone sur une tour de Babel 
ou Pascal (Blaise) n'y retrouverait pas Descartes (Rene). Le BASIC a ses detracteurs, sur- 
tout chez les puristes, mais domine neanmoins la scene des micros. 

Lecture/Ecriture (Read/Write - R/W) 

Qualifie un disque, un fichier ou une unite de disquette permettant la lecture et l'ecriture 
des donnees. 



Lecture seulement (Read Only - R/O) 

Option attribute a une disquette, a un fichier sur disquette ou a une unite de facon a 
proteger les donnees qu'il ou qu'elle contient d'un effacement involontaire. 



LISP (LIST PROCESSOR) 

Nom d'un langage de programmation fonctionnelle. 

Logiciel (Software) 

Tout ce qui touche aux programmes et a ce qu'on met dans la machine pour la faire tour- 
ner. Sans lui, votre ordinateur n'est qu'un element decoratif a 1'esthetique futuriste. 

Logiciel integre 

Voir Firmware 



Logo 

Nom du grec « logos » qui signifie « mot », il est utilise dans le milieu educatif pour 
l'apprentissage de la programmation. 



Lutin (sprite) 

Caractere pouvant se deplacer librement sur l'ecran sans alterer les representations 
graphiques deja affichees. 



Manette de jeux 

Voir Joystick 

Materiel 

Ensemble des elements physiques employes pour le traitement des donnees. 

Matrice 

Terme utilise en mathematique et en informatique pour representer des arrangements de 
variables dans plusieurs dimensions. Donne une grille de points si on Tutilise dans le sens 
physique. Tous les caracteres sont definis sur des matrices, d'oii le nom d'imprimante 
matricielle. 

Memoire 

Un ordinateur a sa memoire qui flanche (RAM) et sa memoire ROM qui elle, est perma- 
nente. Bien que Ton puisse a la fois lire et ecrire dans la memoire vive RAM, ce qui s'y 
trouve disparait quand on coupe le courant. On ne peut que lire ce qu'il y a dans la 
memoire morte ROM. II y a enfin la memoire de masse, representee par les cassettes, les 
disquettes, disques durs qui sont des supports amovibles de reformation memorisee. 

Memoire (Implantation) 

reorganisation de la memoire, montrant les differentes adresses et aux fonctions Tattribu- 
tion de parties precises de la memoire, de gestion de l'ecran, du systeme d'exploitation, 
etc. 

Memoire tampon (Buffer) 

Des qu'un ordinateur communique avec un appareil plus lent que lui, il a besoin de tam- 
pons pour emmagasiner les donnees au fur et a mesure qu'elles sont manipulees. Cest un 
poste de transit temporaire, sur le chemin d'une imprimante ou d'un autre peripherique. 



Menu 

Bien que la cuisine informatique n'ait pas l'attrait de celle de Bocuse, on utilise souvent 
des menus pour que I'utilisateur choisisse la substantifique moelle. Autrement dit une liste 
d'options qui s'affiche sur l'ecran. (Un des rares mots que les Anglo-Saxons nous aient 
piques pour Tinformatique). 



Microprocesseur 

Le coeur de Fordinateur. Un processeur miniaturise dont tous les elements tiennent, en 
principe, en un seul circuit integre qui execute les instructions que lui transmet Finterpre- 
teur BASIC. 



Microprogramme 

Voir Firmware 



Mise au point 

Elimination des defauts d'un programme qui se manifestent par des anomalies de fonc- 
tionnement. 



Mode graphique 

Les premiers micros avaient du mal a melanger texte et graphiques. Le CPC664 le fait 
avec elegance. 



Modem 

Abreviation de MOdulateur DEModulateur ; on Futilise pour les communications a dis- 
tance entre ordinateurs. Cet appareil peut etre a couplage acoustique ou direct. Voir 
aussi : coupleur acoustique. 



Modulateur RF 

Dispositif d'encodage et de transmission des signaux video en provenance de l'ordinateur 
vers la prise d'antenne d'un televiseur standard. 



Moniteur 

Ecran dedie d'un ordinateur, par opposition a un ecran de television qui doit generale- 
ment etre modifie ou adapte pour afficher les images venant d'un ordinateur. 



Nibble 

Voir Quartet 

Nceuds 

Unite de stockage sur l'espace de travail LOGO. Un noeud type utilise 4 octets d'espace 
memoire. 



Nombre a virgule fixe 

Nombre dont la virgule reste a un emplacement specifie fixe dans les representations, les 
manipulations et en stockage. 



Nombre reel 

Nombre compose d'un nombre entier et d'une partie decimale. 

Nombre sans signe 

Nombre sans prefixe indiquant si sa valeur est positive ou negative. 

Nombres entiers 

Nombres sans partie decimale, par opposition aux reels constitues d'une partie entiere et 
d'une partie decimale. 

Nom de fichier 

En LOGO un nom de fichier peut contenir huit caracteres alphanumeriques. En CP/M, 
une extension de trois caracteres precedee d'un point est permise en plus du nom propre- 
ment dit. 



Norn de fichier ambigu 

Nom de fichier contenant un ou plusieurs jockers. Cette ambiguite est utilisee pour tra- 
vailler sur plusieurs fichiers a la fois. 



Notation polonaise inversee (NPI) 

Methode de notation des operations arithmetiques ayant la faveur de certains construc- 
teurs de calculateurs, ou les operateurs + , -, x, / se placent derriere les valeurs auxquelles 
ils se rapportent. 



Nuro iseur 

Voir jgitaliseur 

Numero de ligne 

Nombres affectes aux lignes des programmes en BASIC et dans d'autres langages. 

Octal 

Systeme a base 8, ou chaque chiffre (0-7) peut representer trois bits. 

Octet 

Groupement de 8 bits formant la plus petite portion de memoire que l'unite centrale 
puisse lire ou ecrire. Le terme byte (prononcer Bait) en est la traduction anglaise. 

Operateur 

Signe ou symbole (+, -, x, [ qui indique la nature d'une operation mathematique ou 
logique. 

Organigramme 

Representation schematique de la progression des etapes d'un programme et des traite- 
ments logiques, retragant la sequence des evenements d'un programme. 



Paddle 

Voir Joystick 

Page Zero 

Zone de memoire centrale qui va de l'adresse &0000 a l'adresse &0100. Cette zone sous 
CP/M est utilisee pour stocker les tres importants parametres systeme. 

Pas de tortue 

Distance minimale parcourue par une tortue : en general un pixel. 

Pascal 

Langage de haut-niveau, tres prise par Academe, qui doit etre compile avant d'etre exe- 
cute, done tres rapide. Constitue bien souvent l'etape suivante pour les etudiants du 
BASIC. 

PEEK 

Fonction BASIC qui lit le contenu d'une cellule de memoire (octet) designee par son 
adresse. 

Peripherique 

Tout appareil qui peut se brancher sur un ordinateur. 



Peripherique logique 

Representation d'un peripherique pouvant differer de sa forme physique. Le peripherique 
logique du CP/M peut etre associe au port Centronics ou a l'unite d'affichage VDU 
(Video Display Unit). 



Peripherique physique 

Peripherique tangible correspondant a des constituants materiels. II peut etre represente 
par un peripherique logique. 



Pile 

Memoire dont les donnees sont traitees de telle sorte que Particle extrait en premier soit 
le dernier article range, selon le principe dernier entre, premier sorti. 



Pistes 

Ordonnees de fagon concentrique sur la disquette ; chaque piste contient le meme nombre 
de secteurs. Les pistes et les secteurs se fagonnent a un endroit specifique au moment du 
formatage. 



Pistes Systeme 

Pistes reservees pour le CP/M sur une disquette. 

Pixel 

Plus petite partie d'une image qu'un dispositif de visualisation puisse reproduire. 

POKE 

Le petit frere de PEEK. Ecrivain plutot que voyeur, il ecrit une valeur a une adresse 

donnee. 

Port 

Voie d'acces qui permet d'entrer ou de recueillir des donnees. 

Portabilite 

Qualite d'un programme qui peut etre exploite sur plusieurs types d'ordinateurs avec peu 
(ou pas) de modifications. 



Porte 

Circuit electronique qui emploie des composants realises selon une technologie particu- 
liere et assembles selon une technique particuliere. II existe plusieurs types de portes (OU, 
ET, OU exclusif, etc.). 



Primitive 

Procedure, operation, commande residente du Dr. LOGO. 

Procedure 

Ensemble des instructions a utiliser pour resoudre une tache particuliere. 



Progiciel pret a l'emploi 

Expression designant un programme s'executant automatiquement des l'amorce du sys- 
teme. La disquette du Dr. LOGO en est un exemple. 



Progiciels 

Programmes ^'applications specialement developpes pour une tache particuliere, prets a 
l'emploi. II en existe pour gerer Falimentation equilibree des animaux ou, un peu plus 
cher, une centrale atomique. 



Programmation structuree 

Technique de programmation logique et preetablie qui permet d'obtenir des programmes 
suivant une hierarchie descendante (du general au particulier), selon des etapes clairement 
definies. 



Programme 

Ensemble destructions redigees d'apres un algorithme dans un langage accepte par l'or- 
dinateur. 



Programme d'application 

A la difference d'un logiciel a caractere general, programme ayant une tache bien precise 
a realiser : un assembleur, une commande d'imprimante, etc. 



Programme transitoire 

Programmes utilitaires du CP/M, tel que FILECOPY, qui sont charges en memoire 
(TPA) et executes en entrant leur nom au clavier. 



PROM (Programmable Read Only Memory) 

II s'agit d'une ROM programmable. Circuit integre sur lequel on peut ecrire une seule 
fois. 



Prompt 

Message court indiquant a Toperateur que l'ordinateur attend quelque chose au clavier 
(exemple : est le prompt de CPM). 



Protection en ecriture 

Securite empechant la destruction des donnees sur une disquette. Une disquette protegee 
en ecriture ne peut etre que lue. 



Puce (Chip) 

Plaquette de semiconducteur de tres petite taille, dans laquelle ont ete graves les centaines 
ou les milliers de transistors et de diodes qui realisent une fonction particuliere. 



Quartet (Nibble) 

Mot anglais signifiant petite bouchee grignotee : il represente quatre bits d'un octet, done 
un demi-octet ('byte' signifie 'octet', mais egalement 'bouchee). 



Rafraichissement 

Operation qui consiste a regenerer periodiquement les informations contenues dans une 
memoire dynamique constituee de circuits qui perdent Finformation au bout d'un certain 
temps. 

RAM (Random Access Memory = Memoire Vive - MEV) 

Memoire sur laquelle on peut ecrire et lire des donnees, un des elements principaux de 
tout micro. 



RANDOM 

Mot anglais qui signifie aleatoire. II est souvent utile de pouvoir produire des nombres 
aleatoires. Avec le CPC664 on utilise les fonctions RND et RANDOMISE. Le CPC664 
peut generer une sequence pseudo-aleatoire. 

RASTER 

Technique de balayage utilisee pour obtenir une image televisee. 

Reconnaissance de la parole 

Conversion de la parole en instructions reconnaissables par Pordinateur. 

Reconnaissance optique des caracteres 

Action de reconnaitre un caractere d'apres sa forme ecrite ou imprimee et de le coder par 
representation binaire. 

Recouvrir 

Ecraser une zone de memoire en remplacant son contenu avec de nouvelles donnees. 

Recursion 

Fonction qui s'appelle ou se met en jeu d'elle-meme. 

Registre 

Endroit de la memoire du microprocesseur (CPU) qui est utilise pour stocker temporaire- 
ment des donnees. 

REMarque 

Commentaire qui ne modife en rien Pexecution du programme, bien utile pour compren- 
dre un programme quand on ne l'a pas ecrit, ou quand on Pa ecrit et oublie. 

Reseau 

Configuration de deux ou plusieurs ordinateurs relies pour echanger des donnees ou des 
informations par cables ou modems. 



Reserve (mot) 

Mot cle qui doit etre ecrit sans faute et suivi d'un espace. Par exemple BASIC n'accepte 
pas le mot NEW en tant que variable - c'est deja reserve. 



Resolution 

Capacite a distinguer des elements d'affichage proches les uns des autres. 

ROM (Read Only Memory = Memoire Morte - MEM) 

Memoire figee ne pouvant qu'etre lue, ou se trouvent generalement des langages, des sys- 
temes d'exploitation ou des programmes dont on a frequemment besoin (cartouches 
ROM). 

Routine (mot anglais) 

Programme ou sous-programme auquel on fait souvent appel. 

RS232C 

Interface serie la plus repandue, utilisee surtout pour les communications. Les appareils 
aux deux extremites de cette interface doivent etre configures (determines dans leurs 
echanges) afin de se comprendre. 

Saisie des donnees 

Rassemblement et entree des donnees sur un ordinateur. 

Sauvegarde 

Action de recopier en memoire tout ou partie d'un programme, d'un texte, etc., en cours 
d'elaboration. 

Secteur 

Bloc de donnees. Le systeme d'exploitation de l'AMSTRAD gere des secteurs de 512 
octets. 



Separateur 

Le plus souvent, un simple espace, mais un signe d'operation peut egalement servir de 
separateur. 



Simple face 

Disquette dont une seule face est disponible pour le stockage des donnees. 

Simulation 

Operation qui consiste a representer le comportement d'un phenomene physique a 1'aide 
de l'ordinateur. 

Software 

Voir Logiciel. 



Sortie 

Toute donnee qui provient de l'ordinateur apres avoir ete manipulee. Designe aussi les 
interfaces qui permettent de « sortir » les donnees de l'ordinateur. 



Sortie imprimee 

Impression sur papier d'un programme, d'un texte ou d'un affichage graphique. L'equi- 
valent sur Tecran s'appelle une visualisation. 



Sous-programme 

Voir Routine 

Synthese de la parole 

Ensemble de techniques materielles et logicielles visant a generer artificiellement la 
parole. 



Table de verite 

Tableau qui indique 1'etat des sorties d'un circuit de logique binaire, en fonction de Tetat 
de ses entrees. 



Table graphique 

Appareil qui numerise les coordonnees des points d'un dessin afin que l'ordinateur puisse 
les manipuler. 



Tableau (Array) 

Aussi appele table, matrice ou grille. Note : il s'agit d'une organisation a une ou plusieurs 
dimensions. Les donnees sont referencees par leurs indices dans chaque dimension. 



Tableur 

Logiciel tres prise par les gestionnaires, appele « spreadsheet » par les anglo-saxons, qui 
permet de creer des tableaux de valeurs, d'effectuer des calculs entre colonnes, de sauve- 
garder les resultats, etc. 



Technologie de reformation 

Toute technique se rapportant a Pemploi de Telectronique pour le traitement des infor- 
mations et des communications : traitement de textes, communications des donnees, 
TELETEL, etc... 



Temps reel 

Mode de traitement qui permet l'admission des donnees a un instant quelconque et Tob- 
tention immediate des resultats. 



Terminal 

Autre nom d'un clavier avec ou sans moniteur qui permet d\< entrer » des donnees dans 
l'ordinateur principal. 



Terminal intelligent 

Terminal generalement de type conversational, dote de moyens informatiques propres 
qui le rend apte au pre- ou au post-traitement. 



Terminal non-intelligent 

Terminal d'ordinateur con^u pour emettre ou recevoir des donnees sans traitement. Un 
terminal « idiot » ne possede pas de dispositifs electroniques de commande d'affichage. 



TPA (Transient Program Area) 

Zone des programmes transitoires. Une zone memoire qui commence a Tadresse &0100 
et qui est utilisee par les programmes transitoires du CP/M. 



Touche de fonction 

Touche du clavier affectee a une tache specifique qui vient s'ajouter ou remplacer la fonc- 
tion principale indiquee sur la touche. 



Touche programmable 

Voir touches programmables par l'utilisateur 

Touches de controle du curseur 

Touches (munies de petites fleches) qui permettent de deplacer le curseur sur l'ecran, dans 
un sens ou dans un autre. 

Touches programmables par l'utilisateur 

Le CPC664 en comporte 32, redefinissables pour l'execution de taches multiples. 

Traceur 

Appareil servant a tracer automatiquement des courbes planes par mouvement d'un sty- 
let encreur. 



Traitement de texte 

Type de programme ou logiciel. Indispensable des qu'on veut ecrire une lettre ou rediger 
un document. Sa complexite et ses capacites varient en fonction du prix et de l'ordinateur 
auxquels ils sont destines. 



Transfert en aval (download) 

Transfert d'information d'un ordinateur a l'autre. L'ordinateur qui recoit les donnees 
etant celui en aval et l'ordinateur emetteur etant en amont. 



Tronque 

Nombre ou chaine reduits par suppression des caracteres de debut ou de fin. Lorsque la 
troncature est intentionnelle, la valeur peut etre arrondie. Dans le cas contraire, les carac- 
teres en surplus sont tout simplement ignores pour permettre au nombre ou a la chaine 
de correspondre a l'espace disponible. 

UAL (Unite Arithmetique Logique = Arithmetic Logical Unit - ALU) 

Partie du microprocesseur qui effectue des operations logiques et arithmetiques. Ceux qui 
programment en assembleur ou en langage machine sont directement concernees par 
cette notion. 



UCT 

Voir CPU 

Unite de disquette 

Dispositif qui permet d'ecrire et de retrouver les donnees sur une disquette. 

Utilitaire 

Programme sur disquette qui permet a l'utilisateur d'accomplir certaines taches (voir Pro- 
gramme transitoire). 



Valeur par defaut 

Valeur adoptee en l'absence de specification par Tutilisateur. Sous CP/M l'unite A est 
l'unite par defaut. 



Variable 

Caractere ou groupe de caracteres qui represente une valeur. 

Virgule flottante 

Concept informatique utilise pour representer les nombres de grande taille. 

XYZY 

Mot magique permettant de sortir des situations delicates surgissant dans les jeux d'aven- 
ture. 



Annexe 3 

Et pour quelques programmes de plus... 

Ping-pong 

C'est le plus vieux de tous les jeux, mais il fait toujours recette ! Vous pouvez jouer a deux 
ou seul contre l'ordinateur, a partir du clavier ou avec les manettes de jeu. 

10 'PING PONG by DAVID RADISIC 

20 'copyright <c> AMSOFT 1985 

30 ' 

40 DEFINT a-z 

50 comp-1 

60 ENV 1, =11, 20, =9, 5000 

70 MODE 1: INK 0,10:BORDER IB: INK 1,26: INK 2, 18: INK 3,0 

80 GOSUB 710 

90 GOSUB 150 

100 GOSUB 330 

110 GOSUB 420 

120 LOCATE 13, liPRINT USING "#### "jscorel; 

130 LOCATE 35,1:PRINT USING"#### ";score2; 

140 GOTO 100 

150 PEN 2 

160 x(l)=3:y(l>=5 

170 x(2)=37:y(2)=22 

180 cote$=CHR»(233):cote2MSTRING*<2,207) 

190 LOCATE 1,3:PRINT STRIN6$ (39, cote$) : PRINT STRINGS (39, cot 

e$) 

200 FOR i=l TO 19 

210 PRINT cote2$;TAB(38);cote2* 

220 NEXT 

230 PRINT STRING* (39, cotf*) :PRINT STRING$<39,cote») j 

240 WINDOW #1,3,37,5,23 

250 CLS «1 

260 SYMBOL 240,0,60,126,126,126,126,60,0 

270 raquette*="!"+CHR*(8)+CHR*(10)+"l" 

280 eff*=" "+CHR$(8)+CHR*(10)+" " 

290 balle*=CHR$(240) 

300 PEN 3 

310 LOCATE 2,l:PRINT"jouBur 1 : 0";:LOCATE 24, ltPRINT" joue 

ur 2 : 0"; 

320 RETURN 



330 n = INT <RND*2):CLS #l:scored=0 

340 PEN 3 

350 FOR i = l TO 2:L0CATE x <i ) , y <i ) :PRINT raquette*; :NEXT 

360 ON n GOTO 390 

370 xb=21:dx=i 

380 GOTO 400 

390 xb=19:dx*l 

400 yb=12:dy=INT (RNDt3)-l 

410 RETURN 

420 60SUB 600 

430 3xb=xb:oyb>=yb 

440 tOSUB 500 

450 IK note>0 THEN SOUND 129, note, 50, 15, 1 

460 LOCATE oxb,oyb : PRINT" "; 

470 LOCATE xb,yb:PRINT ballet 

480 IF scored=0 THEN 420 

490 RETURN 

500 LOCATE xb+dx,yb+dy:ch*=COPYCHR*(#0) 

510 note=0 

520 IF ch*=" " THEN xb»xb+dx ! yb=yb+dy:RETURN 

530 IF ch**"i" THEN dx=2-dx-2: dy=INT (RNDt3) -1 : note=200: RETUR 

N 

540 IF ch*=LEFT*(cote2$,l) THEN 570 

550 IF ch*=cote* THEN dy=2-dy-2:note=250 

560 RETURN 

570 IF dx>0 THEN scorel=scorel+l ELSE score2=score2+l 

580 scored=l:note=2000 

590 RETURN 

600 p(l)=(INKEY(69)>=0)+(INKEY(72)>=0)+ABS(<INKEY(71)>=0)+(I 

NKEY<73)>=0)>*2 

610 IF corap=l THEN p (2) =ABS (y (2)<yb) *2+ (y (2) >yb) : GOTO 630 

620 p(2)=(INKEY(4)>=0)+(INKEY<48>>=0>+ABS(<INKEY(5)>=0>+(INK 

EY(49)>=0))»2 

630 PEN 3 

640 FOR 1=1 TO 2 

650 LOCATE x (i ) , y ( i ) +p (i ) : ch*=COPYCHR* (#0) 

660 IF ch*=" " THEN LOCATE x <i ), y.(i ): PRINT if f tj iy(i )«y (i)+R 

0UND(p(i)/2) 

670 LOCATE x ( i ), y (i ): PRINT raquette$; 

680 NEXT 

690 PEN 1 

700 RETURN 

710 PEN 2:PRINT'.PRINT TAB (15) "Ping-Pong" : PRINT TAB(15>" 



720 PEN 3:PRINT:PRINT TAB ( 14) "Pour utiliser les raquettes 

730 PRINT:PRINT:PEN 1 

740 PRINT" Joueur 1 Joueur 2 direction" :PRINT 

750 PRINT" A 6 HAUT" 

760 PRINT" Z 3 BAS"iPRINT 

770 PEN 3:PRINT:PRINT TAB(13)"0u les Joysticks" 

780 PRINT:PRINT:PRINT:PRINT 

79a PEN 2 

800 PRINT TAB<6)" Choix: <1> ou <2> Joueurs" 

810 i$=INKEY$:IF 1$<>"1" AND i$<>"2" THEN 810 

820 IF i*="l" THEN comp=l ELSE comp=0 

830 MODE IsRETURN 



Escrime electrique 

Vous devez vaincre votre adversaire ! Ne se joue qu'a deux, a partir du clavier ou avec les 
manettes. 

10 'ESCRIME ELECTRIQUE par ALEXANDER MARTIN 

20 'copyright (c) AMSOFT 1985 

30 ' 

40 DEFINT a-z 

50 MODE 

60 60SUB 980 

70 BOSUB 1370 

80 GQSUB 270 

90 GOSUB 1520 

100 GOSUB 1370 

110 GOSUB 1270 

120 ' 

130 ' 

140 REM debut 

150 IF Hni THEN GOTO 100 

160 GOSUB 240 

170 FRAME: IF jldir THEN GOSUB 570 ELSE FRAMEiFRAME 

180 FRAME: IF j2dir THEN GOSUB 620 ELSE FRAME:FRAME 

190 IF jlsa=-l THEN GOSUB 670 

200 IF j2sa=-l THEN GOSUB 720 

210 GOTO 140 

220 ' 

230 ' 



240 IF j THEN 380 ELSE 480 

250 ' 

260 ' 

270 CLSsPEN 6 

280 PRINT:PRINT" Choix des commandes" 

290 PRINT:PRINT:PRINT:PRINT" <J>ou<C> puis ENTER" 

300 LOCATE 6,10:PRINT"JOYSTICK":PRINT:PRINT" ou CLAVIER" 

310 LOCATE 15, 10: IF j THEN PRINT"*"ELSE PRINT" " 

320 LOCATE 15, 12s IF j THEN PRINT" "ELSE PRINT"*" 

330 IF NOT <INKEY(45>) THEN j=-l 

340 IF NOT (INKEY<62)> THEN j=0 

350 IF NOT (INKEY(IB)) THEN RETURN ELSE 310 

360 ' 

370 ' 

380 jl=JOY(0):j2=JOYU) 

390 jldirMjl AND l)t-l + (jl AND 2)»0.5 

400 J2dir-(j2 AND Dl-l + (j2 AND 2)t0.5 

410 IF jl AND 16 THEN j lsa=j lsa-1 : IF jlsa=-l THEN AFTER 15 G 

OSUB 770 

420 IF j2 AND 16 THEN j2sa*j2sa-l : IF j2sa«-l THEN AFTER 15 G 

OSUB 770 

430 IF jlsa THEN jldir*0 

440 IF j2sa THEN j2dir=0 

450 RETURN 

460 ' 

470 ' 

480 j2dir=((INKEY(4)=0)*l)+((INKEY(5)=0)t-l) 

490 j ldir= < ( INKEY (69) =0) 1 1 ) + ( ( 1NKEY (71 ) =0) *-l ) 

500 IF INKEY(63)=0 THEN j lsa=j lsa-1: IF jlsa=-l THEN AFTER 15 

GOSUB 770 
510 IF INKEY (10)=0 THEN j2sa=j 2sa-l : IF j2sa=-l THEN AFTER 1 
5 GOSUB 770 

520 IF jlsa THEN jldir=0 
530 IF j2sa THEN j2dir=0 
540 RETURN 
550 ' 
560 ' 

570 pt=jlwp+jldir:IF pt>25 OR pt<6 THEN RETURN ELSE jlwp=pt 
580 jldir=0 

590 PEN l:LOCATE 3,jlwp:CLS «3:PRINT CHR« (209) ;: RETURN 
600 ' 
610 ' 
620 pt=j2wp+j2dir:IF pt>25 OR pt<6 THEN RETURN ELSE j2wp=pt 



630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

sc = 

9 T 

780 

32, 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 



890 

900 

910 

920 

930 

940 

950 

960 

970 



j2dir=0 

PEN 2:L0CATE 18,j2wp:CLS #5:PRINT CHR$ < 21 1 );: RETURN 



PAPER #4,4:WINDQW 114,4, 17, j lwp, j lwp:CLS #4: FRAME: FRAME 
PAPER #4,0:CLS #4 
GOTO 570 



PAPER #6, 5: WINDOW #6,4, 17, j2wp, j2wp:CLS #6: FRAME: FRAME 
PAPER #6,0sCLS #6 
60T0 620 



jwpe=( 

jlsc+ls 

HEN 860 

IF j2s 

100,10, 

IF j Is 

IF j2s 

jUa=0 

j2sa=0 

RETURN 



jlwp=j2wp)sIF jlsa AND NOT (j2sa) AND jwpe THEN jl 
SOUND 132, 120, 10,0, 1 , 0: PRINT *1 , a* ( j lsc) ; : IF jlsc = 

a AND NOT (jlsa) AND jwpe THEN J2sc=j2sc+1:S0UND 1 
0,1,0:PRINT #2,a$(j2sc);:IF j2sc=9 THEN 860 
a THEN SOUND 132,40,70,0,1,1 
a THEN SOUND 132,56,70,0,1,1 



PEN 6 

LOCATE 6,10:PRINT"GAME OVER" 

IF jlsc=9 THEN INK 1,2,20:INK 2,0 ELSE INK 2,6, 17s INK 1, 

SOUND 129, 1000,0, 12, 3:S0UND 130,900,0,12,3 

WHILE INKEY*<>"":WEND 

t!=TIME: WHILE t ! +2000>TIME: WEND 

WHILE INKEY$="":WEND 

CLS 

Hni=-1 

RETURN 



980 a* (0) =" 1 1 1 101 10 1 101 1 1 1 " 
990 a*U) = "00100100t001001" 
1000 a* (2) = " 1 1 1001 1 1 1 1001 1 1 " 
1010 a* (3) -" 1 1 1001 1 1 1001 1 1 1 " 
1020 a*(4)=" 100100101111001" 
1030 a* ( 5) =" 1 1 1 1001 1 L00 1 1 1 1 " 
1040 a$(6)-"l 111001 1 1 101111" 
1050 a*<7)="111001001010010" 
1060 a*(8)="111101111101111" 
1070 a*(9) =" 1 1 1 101 1 1 1001001 " 
1080 FOR n=0 TO 9 
1090 taille=LEN(a$(n) ) 
1100 FOR n2=l TO taille 

1110 IF MID$(a«(n),n2,l)="l" THEN HID* (a$ (n) ,n2, 1 ) =CHR*< 143) 
ELSE MID$(a*(n),n2,l)=CHR$<32) 
1120 NEXT n2,n 
1130 ' 
1140 ' 

1150 b*="ESCRIME ELECTRIQUE" 

1160 c*=CHR*<32)+CHR*(164)+" Alexander Martin" 
1170 ENV 1,=9,2000:ENT -1,6,3,1 

1180 ENV 2,127,0,0,127,0,0,127,0,0,127,0,0,127,0,0 
1190 ENV 3, =9, 9000 
1200 ' 
1210 ' 

1220 BORDER 

1230 INK 0,12:PEN #4,l:PEN #6,2:PEN #1,1:PEN #2,2:PAPER #1,3 
{PAPER #2 3:PEN #0 6 

1240 RETURN*'FIN DE DEFINITION DES CONSTANTES 
1250 » 
1260 ' 

1270 INK 0, 12: INK 1,2: INK 2,6: INK 3, 13: INK 4,20: INK 5, 1 : INK 
6,20 

1280 WINDOW #3,3,3,6,25:WIND0W #5, 18, 18, 6, 25 
1290 WINDOW #1,3,5, 1,5: WINDOW #2, 16, 18, 1 , 5: WINDOW #7,1,20,1, 
5:PAPER #7 3 

1300 CLS:CLS #7:PRINT #1 , a* (0) ; : PRINT #2, a* (0) ; : j lsc=0: j2sc = 
0: j lwp=5: j2wp=24: j tdir = l:j2dir = l 
1310 GOSUB 570:GOSUB 620 

1320 SOUND 1,1000,0, 12, 2:SQUND 2,900,0,12,2 
1330 jlsa=0: j2sa=0:f ini=0 

1340 RETURN 'FIN DU RENOUVELEMENT DE L'AFFICHASE DU SCORE 
1350 ' 
1360 ' 
1370 CLS 



1380 PEN 7 

1390 FOR n=l TO LEN(b$) 

1400 LOCATE 1+n, 10 

1410 FOR n2=LEN(b») TO n STEP -1 

1420 PRINT MID*(b$,n2, 1) 

1430 LOCATE 1 + n, 10 

1440 SOUND 135, 20tn2, 5,12, 2,1 

1450 NEXT n2,n 

1460 SOUND 135,100,0,13,3,1,20 

1470 PEN 6:PRINT:PRINT:PRINT:PRINT c$ 

1480 FOR n = l TO 5000-.NEXT 

1490 RETURN 

1500 ' 

1510 ' 

1520 IF j THEN RETURN 

1530 CLS 

1540 LOCATE 1,5 

1550 PRINT" controle du jeu" 

1560 PRINT 

1570 PRINT"Joiteur 1 Joueur 2" 

1580 PRINT 

1590 PRINT" A HAUT 6" 

1600 PRINT" Z BAS 3" 

1610 PRINT" X TIR 7" 

1620 t!=TIME:WHILE t ! +1000>TIME: WEND 

1630 RETURN 



Le21 

Reveille en vous le joueur qui sommeille. Se joue seul contre l'ordinateur. A partir du 
clavier seulement. 

10 ' LE VINST ET UN 

20 'copyright (c) AMSOFT 1984 

30 ' 

40 INK 0, 21 : INK 1,0! INK 3,6 

50 ENV 1,7,2,1 

60 MODE 1 

70 yc*2:cc=2 

80 aces=0 

90 caces=0 

100 laeee=0 



110 s=B 

120 t=0 

130 DIM suit«(4) 

140 suit*(l)=CHR$<226) 

150 suit$(2)=CHR$<229) 

160 suit$(3)=CHR$(22B) 

170 suit$<4)=CHR$(227) 

180 CLS 

190 DIM pack(52) 

200 FOR x=l TO 52 

210 pack<x)=0 

220 NEXT x 

230 ' 

240 'distribue 2 cartes a chaque joueur 

250 ' 

260 LOCATE 8,3 

270 PRINT"J0UEUR";SPC(14)"BANQUE" 

280 LOCATE 7,5 

290 GOSUB 930 

300 5=S+f 

310 IF -f = 1 1 THEN aces=aces+l 

320 LOCATE 27,5 

330 GOSUB 930 

340 t=t+f 

350 IF f = 1 1 THEN caces=caces + l 

360 LOCATE 7,6 

370 GOSUB 930 

380 s=s+f 

390 IF s=21 THEN 850 

400 IF f=ll THEN aces=aces+t 

410 IF s=22 THEN aces=aces-l 

420 IF s=22 THEN s=12 

430 ' 

440 'Choix Option carte suppl. ou servi 

450 ' 

460 LOCATE 10, 12:PRINT"CARTE (C) ou SERVI (S)":F0R z=l TO 50 

0:NEXT:LOCATE 10,12:PRINT SPC<25):F0R z=l TO 500:NEXT 

470 x*=LOWER$(INKEY$):IF x*<>"s" AND x*<>"c" THEN 460 

480 IF x*="s" THEN LOCATE 10, 12: PRINT:GOTO 680 

490 LOCATE 7,yc+5 

500 yc=yc+l 

510 GOSUB 930 

520 S = S + f 



530 IF f = ll THEN aces=aces+l 

540 ' 

550 ' control e du score et des as 

560 ' 

570 IF s<22 THEN 460 

580 IF aces=0 THEN 620 

590 aces=aces-l 

600 s=s-10 

610 GOTO 570 

620 LOCATE 12,19 

630 PRINT"Vous avez saute !" 

640 PRINT:LOCATE 12, 21 : PRINT"Une autre partie <0/N>" 

650 x*=LOWER$(INKEY*)iIF x*<>"o" AND x*<>"n" THEN 650 

660 IF x$="o" THEN RUN 

670 END 

680 LOCATE 27,6 

690 GOSUB 930 

700 t = t + f 

710 IF +=11 THEN caces=caces+l 

720 IF t=17 OR t=18 OR t=19 OR t=20 OR t=21 THEN GOTO 880 

730 cc=cc+l 

740 LOCATE 27,cc+4 

750 GOSUB 930 

760 t=t+f 

770 IF +=11 THEN caces=caces+l 

780 IF t>6 AND t<12 AND laces>0 THEN t=t+10:GOTO 880 

790 IF t<21 THEN 720 

800 IF t=21 THEN 880 

810 IF caces=0 THEN 850 

820 caces=caces-l: laces=laces+l 

830 t=t-10 

840 GOTO 790 

850 LOCATE 12,19 

860 PRINT"la banque saute. ..VOUS GA6NEZ !" 

870 GOTO 640 

880 LOCATE 12,19 

890 IF t<s THEN 850 

900 PRINT"LA BANQUE GAGNE !" 

910 GOTO 640 

920 ' 

930 ' DISTRIBUTION DE LA CARTE 

940 ' 

950 carte=INT(RND(l)t52+l) 

(La ligne 960 n'etait pas presente dans la doc d'origine...) 

960 IF pack(carte)=1 THEN GOTO 950 



►► 



970 pack(carte)=l 

980 f=carte-13*INT(carte/13) 

990 IF 1=0 THEN f =13 

1000 IF f = l OR O10 THEN GOTO 1090 

1010 FOR z = l TO 1000:z=z+l:NEXT 

1020 IF f = 10 THEN PRINT i\" " ; 

1030 IF f < 10 THEN PRINT" "i" " ; 

1040 IF f>10 THEN f = 10 

1050 IF carte >26 THEN PEN 3 ELSE PEN 1 

1060 SOUND 1,0,0,0, 1,,1:PRINT sui t$ (INT ( (carte-1 ) /13> +1) 

1070 PEN 1 

1080 RETURN 

1090 FOR z = l TO 1000;z=z+l:NEXT 

1100 IF f = ll THEN PRINT" V 

1110 IF f =12 THEN PRINT" D 

1120 IF f =13 THEN PRINT" R 

1130 IF *<>1 THEN 60TO 1040 

1140 f = 1 1 

1150 PRINT" A "; 

1160 GOTO 1060 



Bombardier 

Une version du grand classique ! Se joue seul contre Pordinateur. A partir du clavier 
seulement. 

10 ' BOMBARDIER 

20 ' copyright (c)AMSQFT 1984 

30 ' 

40 MODE 1:CLS:INK 0,0:BORDER 0: INK 1, 18: INK 2,6: INK 3,4:INK 

5, 15: INK 6,2:INK 7,24:INK 8,8:INK 9,26:INK 10, 10: INK 11,20:1 

NK 12, 12: INK 

13, 16: INK 14, 14: INK 15,21 
50 SYMBOL AFTER 240:SYMBOL 241 , &40, &60, «c70, &7F, S<7F, &3F, &7, &0 
:SYMB0L 242,&0,8<32,*c7A,iFE,S<FA,&F2,J<E0,*<0 

60 score=0:hiscore=0:avion$=CHR*(241)+CHR$(242):x=2:y=2:chut 
e=0:a=2:b=2 
70 GOSUB 480 
80 CLS 

90 PEN 2:L0CATE 1,15: INPUT "Niveau : (as) a 5 (debutant):" 
,niv 



100 IF niv<0 OR niv>5 THEN GOTO 90 

110 niv=niv+10 

120 LOCATE 1, ISiPRINT CHR* (IB) ;: LOCATE 1, 15: INPUT "Vitesse : 

(rapide) a 100 (lent) :",vit 
130 IF vit>100 OR vit<0 GOTO 120 
140 ' 

150 ' Immeubles 
160 ' 
170 MODE 0sFOR base=5 TO 15:F0R haut=21 TO INT (RND(l) *8+ni v) 

STEP -1:L0CATE base,hautsPEN base-2lPRINT CHR*< 143)+CHR«<8) 
+CHR$(11)+CH 
R$(244)j:NEXT:NEXT 
180 PLOT 0,20,4iDRAW 640,20,4 

190 LOCATE 1,25:PEN 2:PRINT"score" ; score: sLQCATE 13,25:PRINT 
"Hl";hiscore5 
200 ' 

210 ' JEU PRINCIPAL 
220 ' 

230 LOCATE x- 1 , y iPRINT" "i 
240 PEN IsLOCATE x,y:PRINT avion$:sPEN 2 
250 IF y-21 AND x-15 THEN 60T0 290 ELSE GOTO 340 
260 ' 

270 ' atterissage reussi 
280 ' 

290 FOR c=0 TO 1000:NEXT 

300 sc or e-score+100-(nivt2):niv=niv-l:x=2:y=2sa=2:b=2: chute 8 


310 IF niv<10 THEN ni v=10: vi t=vit-20 
320 IF vit<0 THEN vit=0 
330 GOTO 150 
340 FOR c=0 TO vit:NEXT 
350 x=x + l 

360 IF x = 18 THEN LOCATE x-l,y:PRINT CHRJ ( 18) 5 : x = 2: y=y+l: LOCA 
TE x,y:PEN 1:PRINT avion$;:PEN 2 

370 a*=INKEY*:lF a*=" " AND chute=0 THEN chute*l:b=y+2: a=x 
380 IF y=21 THEN chute=0 

390 IF chute=l THEN LOCATE a,b:PRINT CHR* (252) : :LOCATE a,b-l 
sPRINT" "jsb=b+l:IF b>21 THEN LOCATE a,b:PRINT" "jsLOCATE a, 
b-liPRINT" " 

;:a=0:b=0:chute=0: SOUND 3,4000,10,12,0,0,10 
400 ga=(a-0.5)»32:gb=400-(b*16):bofflb=TEST(ga,gb) 
410 IF bofflb>0 THEN GOTO 670 

420 gx=(<x+1.5)*32):gy=408-<y*16):crash=TEST(gx,gy) 
430 IF crash>0 THEN GOTO 570 



440 GOTO 230 

450 ' 

460 ' made d'emploi 

470 ' 

480 LOCATE 1,2:PEN 1: PRINT" Vous pilotez un avion au-dessus 

d'une ville abandonnee que vous devez 'raser' pour atterrir 

et {aire le 

plein de fuel.Votre avion se deplace de gauche a droit 
e,":PRINT 

490 PRINT:PRINT" Une fois le bord droit attaint, T avion revi 
ent a gauche UNE LI6NE PLUS BAS. Vous disposez d'une quan 
tite ill ifltit 
ee de bombes et vous pouvez les larguer surles immeubles en 

appuyant sur la BARRE ESPACE. " ; :PRINT 
500 PRINTrPRINT" A chaque fois que vous atterrissez , soi tla v 
itesse de votre avion , soit la hauteur des immeubles au 
gmente. " ; : PR 

INT:PRINT:PRINT H VOUS NE POUVEZ LARGUER DE BOMBE TANT QUE 
LA PRECEDANTE N'A PAS EXPLOSEE ! ! ! * 5 

510 PEN 2sL0CATE 1 , 24: PRINT: PRINT"APPUYEZ SUR UNE TOUCHE POU 
R J U E R " • 

520 a$=INKEY$:IF a*="" THEN GOTO 520 
530 RETURN 
540 ' 

550 ' collision 
560 ' 

570 LOCATE x-l,y:PRINT CHR* (32) +CHR* (32) +CHR* (32) +CHR* (253) + 
CHR$(8)+CHR*(238)+CHR«<8); 

580 FOR t-1 TO 10 :S0UND 7, 4000, 5, 15, 0,0, 5:PEN tsPRINT CHR«< 
243)+CHR$(8)+CHR$(238)+CHR$<8)+CHR$(32>+CHR*(8);:NEXT:PEN 2 
590 CLS:LOCATE 1 , 5: PRINT"SCORE: "score; 

600 IF score>hiscore THEN hiscore=score:LOCATE t , 8: PRINT"(1EI 
LLEUR SCORE ! !"; 

610 score=0:LOCATE 1, 12:PRINT"Tapez' R'pour rejouer" 
620 a$=INKEY*:IF a*="r" OR a$="R" THEN 60T0 630 ELSE GOTO 62 


630 PEN itMODE 1 : x = 2: y=2: a=2: b = 2: GOTO 90 
640 ' 

650 ' Immeubles Detruits 
660 ' 

670 LOCATE a,b-l:PRINT" "+CHR*(8) ; :PEN 4sF0R tr = l TO INT(RND 
(Dt3) + l:score=score+5:S0UND 3, 4000, 10, 12,0,0, 10JLOCATE a,b: 
FOR t=0 TO 4 

SPRINT CHR$(253)+CHR$(8)+CHR$(32)+CHR$(B);:NEXT:b=b+l 
680 IF b=24 THEN b=b-t 
690 NEXT 
700 LOCATE 6,25sPRINT score; : chute=0: a=x : b=y: GOTO 230 



DATABASE 

Ce programme bien utile vous permettra de creer des petits fichiers. Vous serez de cette 
maniere en mesure de comprendre les mecanismes utilises pour l'ouverture et la fermeture 
des fichiers sur la disquette ainsi que plusieurs autres routines interessantes (caracteres 
double hauteur, boucles while.. .wend). 

10 ' ********** DATABASE *********** 

20 ' 

30 ? DA 12/12/84 

40 ' Initialisation 

50 CLEAR 

60 SYMBOL AFTER 

70 DEF FNdeek(x>=PEEK(x)+256*PEEK(x+l) * Deek 

80 SPEED WRITE 1 

90 recnum = 50 * Notnbre d' enregistrements 

100 ht = 12 Nombre d'en-tetes 

110 beep$ = CHR$<7) 

120 ' Definition du code double hauteur 

130 RESTORE 3520 

140 double*=STRING*<81,32) : double$ = l,H 

150 FOR i=0 TO 80 

160 READ j : double$-doubl e$+CHR$ ( j ) 

170 NEXT 

180 double - FNdeek <9double*+l ) 

190 ? definition de 6 champs/enreg. 

200 DIM fieldl$(recnum+l) ,f ield2$ (recnum+1 ) 

210 DIM f ield3*(recnum+i> ,Held4*(recnu<n + l) 

220 DIM field5$(recnum+l),f ield6$ (recnum+1 ) 

230 nextblank= I 7 pointeur sur espace pour le suivant 

240 'Le libelle des champs est ds le ler enreg. 

250 RESTORE 3620 ' lit les en-tetes des champs 

260 READ fieldlt<e),fi«ld2$<0),field3*(B) 

270 READ i ield4$<0) ,f ield5$(0) ,f ieid6*(0) 

280 * Ecran 

290 MODE Is BORDER 13 

300 INK 0, 13: INK l v Bi INK 2,3: INK 3,26 

310 PAPER 0;PEN 1 

320 GOSUB 2990 > Illustration 

330 GOSUB 370 ' Ecran d' introduction 

340 GOSUB 560 > Menu 

350 END 

360 ' SOUS-PROGRAMME: Ecran d'intro 

370 title$="Database Amstrad" 

380 GOSUB 2820 

390 sp$=STRING$(40,32) 

400 LOCATE 1,6 

410 PRINT CHR$(24) ;sp$; 



420 PRINT " Ce programme vous permet d'enregistrer ";sp$; 

430 PRINT " jusqu'a 50 noms, avec au plus 6 champs ";sp$; 

440 PRINT " par enregistrement . Le programme a ete ";sp*; 

450 PRINT " fait pour etre utilise comme un " ; sp$ ; 

460 PRINT " repertoire, mais il peut etre modi-fie ";sp$; 

470 PRINT " pour servir de liste de disques, "jspi; 

480 PRINT " de liste de programmes ou de " ; 5 p $ ; 

490 PRINT " dictionnaire geographique par exemple. ";sp$; 

500 PRINT CHR*<24); 

510 MOVE 4,316 : DRAM 634,316,0 

520 DRAW 634,50 : DRAW 4,50 :DRAW 4,316 

530 GOSUB 2750 ' Appuyez sur ESPACE 

540 RETURN 

550 ' SOUS-PROGRAMME: Menu 

560 title*-"Database Amstrad": GOSUB 2820 ' en-tete 

570 MOVE 10,38 : DRAW 10,330,1 : DRAW 630,330 

580 DRAW 630,38 : DRAM 10,38 

590 MOVE 14,42 : DRAW 14,326,1 : DRAW 626,326 

600 DRAW 626,42 : DRAW 14,42 

610 WINDOW 3,39,6,25 

620 PRINTsPRINT "Ajouter un enreg. a database A" 

630 PRINTsPRINT "Enlever un enreg. a database E" 

640 PRINTsPRINT "Retrouver un enreg. particulier . . . . R" 

650 PRINTsPRINT "Changer le nom des champs C" 

660 PRINTsPRINT "Imprimer les enreg. de database I" 

670 PRINTsPRINT "Charger un fichier L" 

680 PRINTsPRINT "Trier les enreg. par ordre alphab..T" 

690 PRINTsPRINT "Sauvegarder un fichier S" 

700 WINDOW 1,40,1,25 
710 WHILE G$>"" s GS=INKEY$ s WEND 
720 WHILE G* = "" : G$=INKEY$ s WEND 
730 option = INSTRCAETCRLSI",UPPER*(6*)) 
740 ON option GOSUB 810,970,1170,2400,1550,1850,2060,2260 
750 ' OPTIONS s A E T C R L S I 
760 IF option THEN 560 ' commande a e-ffectuer 
770 PRINT beep$} : GOTO 710 
780 ' 

790 ' SOUS-PROGRAMMEs Ajoute un enreg. 
800 ' 

810 title$="Ajout d'un enrg" : GOSUB 2820 ' en-tete 
820 IF nextblank > recnum THEN LOCATE 14,8 s PRINT "Database 
plein" : GOTO 2750 
830 PRINT"C'est l'enreg. numero" j nextblank 
840 PRINT 
850 PRINT fieldl$(0);TAB(ht);:INPUT ":", f i eldl$ (nextblank) 



►► 



860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1 



PRINT Held2$(0);TAB(ht);:INPUT 
PRINT field3*(0)jTAB(ht)j: INPUT 
PRINT field4*(0);TAB(ht);:INPUT 
PRINT fiild5f(0)|TAB(ht)|tINPUT 
PRINT f ield6*(0);TAB(ht);:INPUT 
nextblank=nextblank+l 
GOSUB 27S0 
RETURN 

' SOUS-PROGRAMMEi Efface urt enreg. 



f ield2$<nextblank) 
Held3$(nextblank) 
field4$(nextblank) 
Held5$(nextblank) 
f ield6$(nextblank) 



>r un enrg." : GOSUB 2B20 ' en-tete 
quel enrg." ; dl 



title$="EHacer 
INPUT "Effacer 
PRINT 
IF dl >= nextblank THEN PRINT "Cet enreg. n'existe pas" 
: GOTO 1120 
1010 d-dl : st=0 : 
1020 INPUT "0 pour 
1030 PRINT 

1040 IF UPPERS (q*)<>"0" THEN PRINT TAB(12):"Pas d'effacage' 
s GOTO 1120 
1050 FOR i=d+l TO 
fieldt*(i-l)=H 
fi»ld3»(i-l)«M 
field5$<i-l)=H 
NEXT 

nextbl ank=nexi 
PRINT TAB(18) 
GOSUB 2750 
RETURN 



1060 
1070 
11380 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 

1190 

1200 

e 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 



GOSUB 2640 ' affiche 
confirmer l'effacage 



nextblank 

»fieldl$(i)ifield2*(i- 
sfield3$(i):field4«(i- 
:field5«(i)ifield6$(i- 



1 'enreg. 
: " , q$ 



I)=field2$(i) 
l)-field4$(i) 
l)=field6«(i) 



:tblank-l 
;"Effacage" 
espace 



' SOUS-PRQGRAMEs tri 

> 

title*="Tri enreg." : GOSUB 2820 ! 
PRINT s PRINT TAB(8);"Tri des enrg. 



en-tete 

par ";fieldl$(B) 



Bhell/Metzner No. 1 Classement des fieldl* (1 a numX) 
debute avec num7.=no(nbre d'enreg. : utilise l'integral 



timethen = TIME ' 
nu<n'/.=nextblank-l 
sl7.=num7. 
WHILE sl7. >l 

sr/.ssl7. / 2 

s27.=num7.-sl7. 

Hag7.= l 

WHILE flag"/.= l 
flag7.=0 
FOR s37. = l TO 



chronometre le classement 



s27. 



1310 s47. = sl7. + s37. 

1320 IF Heldl*(s37.) > fieldl*(s4X> THEN GOSUB 1440 
1330 NEXT 537. 

1340 WEND 
1350 WEND 

1360 timenow = TIME - timet hen 

1370 timenow = INT (timenow/30) / 10 ' en seconde a la dizai 
ne pres. 

1380 LOCATE 6,12 '■ PRINT "Classement en"; timenow; "secondes" 
1390 GOSUB 2750 ' espace 
1400 RETURN ' au menu principal 
1410 ' 

1420 ' SOUS-PROGRAMME! 
1430 ' 

1440 sl*=fieldl$(s3X) 
= sl$ 

Held2*(s37.)=field2*(547.) 



Permutation 
fieldlf (s37.)=fieldl$(s4X) 



Held3*(s37.)=field3*(s47.) 
*ield4$(s3X)=field4$(s47.) 
Held5*(s3X)=Held5$(s4X) 
field6*(s3X)=Held6*(s47.) 



fieldl$(s47.) 
Held2$(s47.) 
field3*(s47.) 
*ield4*(s47.) 
field5*(s47.) 
Held6$(s47.) 



1450 sl*=field2*(s3X) 

= sit 
1460 sl$-field3$(s3%) 

= si* 
1470 sl**field4*(s3X) 

- sl$ 
1480 sl$-Held5*(s3X) 

- sis 
1490 sl*=field6$(s3X) 

= sis 
1500 Uag7.-1 

1510 RETURN ' au sous-prg de Classement 
1520 ' 

1530 ' SOUS-PROGRAMME: Recherche 
1540 ' 

1550 title*="Trouver un enrg." : GOSUB 2820 ' en-tete 
1560 LOCATE 3,6 

1570 PRINT"pour tout lire appuyez sur ENTER" 
1580 LOCATE 1,8 

1590 INPUT "Lettres a rechercher : M ,qu« 
1600 qu**UPPER*(qu*) 
1610 FOR se=l TO nextblank-1 
1620 q$ = qui 

1630 IF INSTR( UPPER*(*ieldl*(se)) , q$ ) THEN GOSUB 1750 
1640 IF INSTR( UPPER*(f ield2*(se) ) , q$ ) THEN GOSUB 1750 
1650 IF INSTR( UPPER*(*ield3s(se)) , q$ ) THEN GOSUB 1750 
1660 IF INSTR( UPPER*(*ield4*(se>> , q* ) THEN GOSUB 1750 
1670 IF INSTRt UPPER*(field5*(se)) , q$ ) THEN GOSUB 1750 
1680 IF INSTR< UPPER$(Held6*(se) ) , q* ) THEN GOSUB 1750 
1690 NEXT 



1700 CLS s GOSUB 2750 ' espace 

1710 RETURN ' au menu principal 

1720 ' 

1730 ' SOUS-PROGRAMME: Affichi l'enreg. trouve 

1740 ' 

1750 CLS 

1760 PRINT s PRINT 

1770 d=se : st=0 

1780 GOSUB 2640 ' AHiche l'enreg. 

1790 GOSUB 2750 ' espace 

1800 q*=CHR*(0) ' pour eviter d'ecrire plusieurs fois le mem 

e item 

1810 RETURN 

1820 ' 

1830 ' SOUS-PROGRAMME : Chargement fichier 

1840 ' 

1850 title*="Charger un fichier": GOSUB 2820 ' en-tete 

1860 PRINT"Mettez la disquette contenant le " 

1870 PRINTMichier dans le lecteur puis" 

1880 PRINT"entrez le nom du fichier" 

1890 PRINT: INPUT "Nom: ",ft 

1900 PRINT:OPENIN f* 

1910 INPUT #9,nextblank 

1920 FOR i=0 TO nextblank-1 

1930 INPUT #9,*ieldl$(i 

1940 INPUT #9,field2*(i; 

1950 INPUT #9,field3*(i 

I960 INPUT *9,Held4«(i: 

1970 INPUT #9,field5*(i 

1980 INPUT #9,Held6*(i; 

1990 NEXT i 

2000 CLOSEIN 

2010 GOSUB 2750 ' espace 

2020 RETURN 

2030 ' 

2040 ' SOUS-PROGRAMME: Sauvegarder 1 fichier 

2050 ' 

2060 title$="Sauvegarde des enreg.": GOSUB 2820 ' en-tete 

2070 PRINT"Placez une disquette dans le lecteur" 

2080 PRINT"Entrez le nom du Hchier :" 

2090 PRINT: INPUT "Nom: ",*$ 

2100 PRINTrOPENOUT f$ 

2110 PRINT *9,nextblank 

2120 FOR i>B TO nextblank-1 

2130 PRINT #9,fieldl$(i) 

2140 PRINT #9,+ield2$(i) 



2150 PRINT #9,field3*(i) 

2160 PRINT #9,field4*(i) 

2170 PRINT #9,field5*(i> 

2180 PRINT #9,field6*(i ) 

2190 NEXT 

2200 CLOSEOUT 

2210 GOSUB 2750 ' espace 

2220 RETURN 

2230 ' 

2240 ' SOUS-PROGRAMME: Impression 

2250 ' 

2260 titleM"Imprim.er les enreg." : GOSUB 2820 ' en-tete 

2270 INPUT "Avez vous une imprimante connectee (0/N)",q$ 

2280 IF UPPER*(q*)<>"0" THEN CLS : st=0 ELSE st=8 

2290 PRINT #st, "DATABASE AMSTRAD" 

2300 PRINT #st : PRINT #st 

2310 FOR d=0 TO nextblank-1 

2320 GOSUB 2640 ' affiche enreg. 

2330 NEXT 

2340 PRINT #st : PRINT #st 

2350 GOSUB 2750 ' espace 

2360 RETURN 

2370 ' 

2380 ' SOUS-PRQGRAMMEs Nom champs 

2390 ' 

2400 title*="Nom des champs" : GOSUB 2820 ' en-tete 

2410 PRINT : PRINT "en-tete 1 ; " : f i eidl* (0) 

2420 INPUT "Change en:",fi* 

2430 IF fi*>"" THEN f i el d Is (0) = fi $ 

2440 PRINT : PRINT "en-tete 2: " ; f ield2$ (0) 

2450 INPUT "Change en:",fi* 

2460 IF fi*>"" THEN f iel d2S (0) = fi * 

2470 PRINT : PRINT "en-tete 3: " j f ield3* (0) 

2480 INPUT "Change en:",fi$ 

2490 IF fi«>"" THEN f ield3t (0) = f i $ 

2500 PRINT : PRINT "en-tete 4 : " : f i el d4* (0) 

2510 INPUT "Change en;",fi* 

2520 IF fi*>"" THEN fi el d4* (0) = f i * 

2530 PRINT : PRINT "en-tete 5: ": fields* (0) 

2540 INPUT "Change en:",fi* 

2550 IF fi*>"" THEN f iel d5* (0) =f i* 

2560 PRINT : PRINT "en-tete 6: " ; f ield6* (0) 

2570 INPUT "Change en:",fi$ 

2580 IF fi*>"" THEN f iel d6* (0) =f i * 

2590 GOSUB 2750 ' espace 



2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2B80 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 



RETURN 

t 

' SOUS-PROGRAMME: Affiche L'enreg. en cours 



PRINT lit, "L'enreg." 
PRINT #st,Heldl*(0) 
PRINT #st,f ield2$<0) 
PRINT #st,field3$<0) 
PRINT #st,*ield4*(0) 
PRINT #st,f ield5$(0) 
PRINT #st,*ield6$<0) 
PRINT #st ! RETURN 



d;"est:" 

TAB(ht) ; " 

TAB(ht)!" 

TAB<ht>;" 

TAB(ht);" 

TABthtlj" 

TAB(ht);" 



PRINT #st 
*ieldl$<d) 
field2$(d) 
Held3$(d) 
field4*(d) 
field5*(d) 
f ield6«(d) 



SOUS-PROGRAMME: Espace 



LOCATE 10,25 
PRINT "ESPACE pour 
WHILE INKEY*<>" " ! 
RETURN 



continuer " ; 
WEND 



' SOUS-PROGRAMME: Alienage du titre 

tl=LEN(title*)+2 

tt=INT((40-tl)/2) 

CLS 

PAPER t : PEN 

LOCATE tt , 1 : PRINT STRING* (tl , 32) 

LOCATE tt,2 : 

LOCATE tt,3 : 

PAPER : PEN 

PRINT ' pour 

tx*tt*16-12 

MOVE tx,396 

DRAW txl,354 

DRAW tx,396 

RETURN 



3 

PRINT STRING* (tl 

PRINT" ";title«; 

PRINT STRING$(tl 

I 
eHacer une ligne a 

txi=(tt+tl)*16-20 

DRAW txl, 396,0 
: DRAW tx,354 



32) 



la fin 



' SOUS-PROGRAMME: Image ecran 

t 

CLG 0:Z7. = 16 

RESTORE 3460 

Y7.=250:FOR XX=400 TO 10 STEP • 

Y7.=Y7.-Z7. 

READ N* 

GOSUB 3310 



•ZX*2 



3050 NEXT 

3060 ORIGIN 0,0,0,639,0,399 

3070 FOR XX=630 TO 616 STEP -l:MOVE XX,338:DRAW XX, XX-296, 2: 

NEXT 

3080 FOR XX=0 TO 16 STEP 2:M0VE XX,140:DRAW XX, 140+XX/ 1 . 5, 2: 

NEXT 

3090 ORIGIN 0,0,0,234,30,140 : CL6 2 

3100 ORIGIN 0,0,0,639,0,399 

3110 YX=30sFOR XX=234 TO 630 STEP 2 

3120 MOVE XX, YX: DRAW X 7. , Y 7. + 1 1 , 2 

3130 YX=YX+1 ! NEXT 

3140 MOVE 16,152:DRAW 0,140,3 

3150 DRAW 0,30:DRAW 234,30 

3160 DRAW 630,226:DRAW 630,340 

3170 DRAW 616,340:MOVE 630,338 

3180 DRAW 234, 140: DRAW 0,140 

3190 MOVE 234, 140: DRAW 234,30 

3200 LOCATE 2,2 : X$=" Database" : GOSUB 3400 ' Double 

3210 LOCATE 2,5 : X* = " Amstrad" : GOSUB 3400 ' Double 

3220 LOCATE 27,20 : X$="Appuyez sur" : GOSUB 3400 ' Double 

3230 LOCATE 27,23 : X*="une touche" : GOSUB 3400 ' Double 

3240 WHILE INKEY*="" : WEND 

3250 RETURN 

3260 ' 

3270 ' SOUS-PROGRAMME: Dessine une carte en couleur 3 

3280 ' ligne couleur 1 contient 

3290 ' reference N$,N (4 chiHres) 

3300 ' 

3310 ORIGIN 0,0,XX,XX+208,YX,YX+140 

3320 CLG l:MOVE XX,YX:DRAWR 0, 140, 1 : DRAWR 214,0:DRAWR 0,-140 

:DRAWR -214,0 

3330 MOVE XX+6,YX+4:DRAWR 202, 0, 0: DRAWR 0,132:DRAWR -202, 0:D 

RAWR 0,-132:MOVER 0,112:DRAWR 202,0 

3340 MOVER -194,16 

3350 TAGsPRINT N$jiTAGOFF 

3360 RETURN 

3370 ' 

3380 ' SOUS-PROGAMMEs Affiche X$ en double hauteur 

3398 ' 

3400 FOR i=l TO LEN(x$) 

3410 POKE double+l,ASC(MID«<X*,i,l)> 

3420 CALL double : NEXT : RETURN' 

3430 ' 

3440 ' Nome pour 1' image ecran 

3450 ' 

3460 DATA "Wi 1 lams: 7471 ", "Stevens: 6216" , "Soames :5807","Smit 

h :2201" 



3470 DATA "Nesbit : 2207" , "Marks :2022", "Lipton :1091","Gree 

n :8087" 

3480 DATA "Frinton : 1011 ", "Evans : 2877", "Barker 18123", "Alto 

n :9981" 

3490 DATA " DATABASE" 

3500 ' 

3510 ' Code machine pour le texte double hauteur 

3520 DATA fc3E,fc6E, &CD,*tA5, &BB, U6, fcFE, &3E, U9 

3530 DATA &CD, &5A, ScBB, &7A, fcCD, &5A, *BB, &0E, *04, fc7E 

3540 DATA JtCD, &5A, StBB, &CD, J<5A,&BB, *23,»<0D,&20, *<F5 

3550 DATA &14, «c2B, &E7, &3E, &FE, fcCD, &5A, &BB, *3E, &0A 

3560 DATA &CD, *5A, fcBB, &3E, &08,*<CD, *t5A,fcBB,*<3E, fcFF 

3570 DATA &CD, &5A, 8cBB,*<3E, fc0B, ScCD, &5A, &BB, &C9, &5A 

3580 DATA &BB, *c3E, &0A, fcCD, fc5A,S<BB, S.3E, &08,StCD, &5A 

3590 DATA &BB, &3E, &FF, fcCD, &5A, &BB, S.3E, &0B, S<CD, &5A 

3600 DATA JcBB,«<C9 

3610 ' Nam de champs par de-faut 

3620 DATA Norn, Rue, Vi 1 le, Pays, Code Postal , Tel .No 

Arsene Lupin 

II s'agit de s'introduire dans la maison de Sa Seigneurie et d'y derober le butin. Vous 
devez franchir une multitude d'obstacles et eviter le chien ! Se joue seul contre l'ordina- 
teur, a partir du clavier ou avec les manettes. 

10 'ARSENE LUPIN by DAVID RADISIC 

20 'copyright (c) AMSOFT 1985 

30 ' 

40 NODE 0:INK 0,0: BORDER 0: INK 1,26: INK 2, 15: INK 3,25 

50 INK 4, 14: INK 5,24:INK 6,0: INK 7,0: INK 8,0:PAPER #1,7 

60 delais=200 

70 DIM objx (5,20) ,objy (5,20) ,gemx (5,20) , gemy (5, 20) 

80 SOSUB 380 

90 GOSUB 720 

100 pause=200:GOSU8 340 

110 IF gems=0 THEN GOSUB 970 

120 PEN 4 

130 FOR i=10 TO 12 

140 LOCATE 15,i:PRINT"BUTIN"; 

150 NEXT 

160 PAPER 0:CLS «2:PAPER 8 

170 GOSUB 1170 

180 GOSUB 1230 



190 GOSUB 1370 

2013 GOSUB 1510 

210 IF rm=0 THEN GQSUB 1900 

220 IF mort=0 THEN 160 

230 pause=100:GOSUB 340 

240 PAPER 0:CLS:PEN 1 

250 LOCATE 5, 3:PRINT"VQULEZ-V0US" i 

260 LOCATE 7, 5:PRINT"REJ0UER"; 

270 PEN 5:L0CATE 9, 7: PRINT"0/N" j 

280 i*=UPPER*(INKEY*):IF i*<>"0" AND i$<>"N" THEN 280 

290 IF i*="N".THEN MODE 2:PEN 1:ST0P 

300 RUN 

310 IF chien=l THEN RETURN 

320 chien=l:chienx=minx(rfn> : chieny=miny (rm) 

330 RETURN 

340 FOR loop=l TO pause 

350 FRAME 

360 NEXT 

370 RETURN 

380 rm=l!xp=6:yp=4:horame*=CHR$(224) : chien=0: vol=0 

390 SYMBOL 240,8,8,8,8,8,8,8,8 

400 SYMBOL 241,0,0,0,0,255,0,0,0 

410 SYMBOL 242,0,0,0,0,15,8,8,8 

420 SYMBOL 243,0,0,0,0,248,8,8,8 

430 SYMBOL 244,8,8,8,8,248,0,0,0 

440 SYMBOL 245,8,8,8,8,15,0,0,0 

450 SYMBOL 246,8,12,13,14,12,12,8,8 

460 SYMBOL 247,8,12,12,14,13,12,8,8 

470 SYMBOL 248,8,24,88,56,24,24,8,8 

480 SYMBOL 249,8,24,24,56,88,24,8,8 

490 SYMBOL 250,0,0,255,255,255,255,255,0 

500 SYMBOL 251,28,20,20,20,20,20,20,28 

510 SYMBOL 252,0,0,255,255,255,255,255,0 

520 SYMBOL 253,28,28,28,28,28,28,28,28 

530 SYMBOL 255,195,165,60,126,90,60,36,24 

540 ENT 1,12,-4,1 

550 ENT -2,-1000,60,-3000,40 

560 ENV 1,10,1,5,2,-4,1,2,-1,20 

570 fenet*(l)=STRING*(2,250):fenet*(2)=CHR*<251)+CHR*(8)+CHR 

* (251 ) +CHR* (8 ) +CHR* (10) +CHR* (25 1 ) 

580 porte*(l)=STRING*(2,252):porte*(2)=CHR*(253)+CHR*(8)+CHR 

$ ( 10) +CHR* (253 ) +CHR* (8) +CHR* ( 10) +CHR$ (253) 

590 inter* ( 1, 0)=CHR* (246): inter* <1,1)*CHR* (247) 

600 inter*(2,0)=CHR*(24B)5inter*(2,l)=CHR*(249) 



610 qem*=CHR*(144):obj*=CHR*(233):chien*=CHR*(255) 

620 coup*=CHR*<246)+CHR*(248)+CHR*<247)+CHR*(249)+CHR*(252)+ 

CHR*(253)+CHR*(250)+CHR*<251)+Qe«*+obj*+c:hien* 

630 RESTORE 3010 

640 FOR i=l TO 5 

650 READ minx (i ) ,miny (i ), maxx (i ) ,maxy (i ) 

660 READ dir<i,l),dir<i,2),dir(i,3>,dir<i,4) 

670 NEXT 

680 WINDOW #1 , minx ( r m > - 1 , maxx (rm) + l»miny (rin) -1 , maxy (i ) +1 

690 WINDOW #2, 1,14,1,25 

700 CLS #1:PAPER #0,8 

710 RETURN 

720 ORIGIN 50,50 

730 INK 6,24,12 

740 RESTORE 3060 

750 GOSUB 1280 

760 LOCATE 2,20 

770 PEN 5:PRINT" — "5 

780 PEN l:PRINT"echappatoires"; 

790 PEN 5:PRINT" — "; 

800 LOCATE 8,2:PRINT"ENTREE"5 

810 pause-300:GOSUB 340 

820 CLSsLOCATE 1,3: INK 6,0 

830 PEN 1:PRINT homme*}" A. LUPIN (VOUS) " sPRINT 

840 PEN 2:PRINT LEFT* (porte* (1 ) , 1 ) 5 LEFT* (porte* (2) , 1 ) ; " 

Portes":PRINT 
850 PEN 3:PRINT inter* (1 , 0) 5 inter* (2, 0) 5 "interrupteur eteint 

II 

860 PEN 3:PRINT inter* ( 1 , 1 ); inter* (2, 1 ) 5 "interrupteur allume 

":PRINT 

870 PEN 4:PRINT LEFT* <{ enet* ( 1 ) , I ) 5 LEFT* (f enet* (2) , 1 ) 5 " 

Fenetres":PRINT 
880 PEN 5SPRINT gem*;" Bi joux":PRINT 
890 PAPER 1:PEN 0:PRINT obj*;" Obstacles" :PEN l:PAPE 
R 0:PRINT 

900 PEN 1:PRINT chien*;" Le chien" 
910 PEN 5:PRINTsPRINT 

920 PRINT"Utilisez le Joystick"!PRINT" Ou les touches":PRI 
NT" Hechees" 
930 {eint=REMAIN(D 
940 AFTER delaist4,l GOSUB 340 
950 RETURN 
960 ' 
970 'GENERATEUR DE RUBIS/OBSTACLES 



980 ' 

990 FOR piece=l TO 5 

1000 ge«r=INT(RNDI8)+2:objr=INT(RNDtl0)+5 

1010 minx=nunx(piece):miny=ininy(piece) :i»axx»i»axx (piece) :maxy 

=«iaxy (piece) 

1020 FOR i«l TO gemr 

1030 x=INT(RND*(»axx-minx+l) )+minx 

1040 y=INT(RNDt (maxy-niiny+1) )+miny 

1030 genx (piece, i ) =x sgemy (piece, i )=y 

1060 gems«geffls+l 

1070 NEXT i 

1080 FOR i=l TO objr 

1090 x = INT(RNDt(ntaxx-minx + l))+«iinx 

1100 y=INT(RNDt(«axy-«iiny+l)>*(niny 

1110 objx (piece, i ) =x : objy (piece, i ) =y 

1120 NEXT i 

1130 gems(piece) =gemr :obj (piece)=objr 

1140 NEXT piece 

1150 CLS 

1160 RETURN 

1170 ON rm 60TO 1180,1190,1200,1210,1220 

1180 RESTORE 2670: RETURN 

1190 RESTORE 2740sRETURN 

1200 RESTORE 2810:RETURN 

1210 RESTORE 2880: RETURN 

1220 RESTORE 2960sRETURN 

1230 PAPER 0:READ r»$i PAPER 8 

1240 WINDOW #l,minx (r(n)-l,niaxx (rm) +l,<niny (rm)-l,maxy (rm) +1: C 

LS #1 

1250 PEN 1:L0CATE 1, liPRINT SPACE$(19); 

1260 LOCATE 1 , l:PRINrPiece s"jr«*; 

1270 IF lumiere(rm) THEN INK 7, 10t INK 8,10 ELSE INK 7,0: INK 

8,0 

1280 READ a*: IF a$="END" THEN RETURN 

1290 IF a$* M D" THEN 2180 

1300 IF a$="W" THEN 2260 

1310 IF a*="L" THEN GRAPHICS PEN lsGOTO 2340 

1320 IF a$="S" THEN 2420 

1330 IF a*="F" THEN BRAPHICS PEN 6:60T0 2340 

1340 PRINT"*** ERREUR ***"; 

1350 STOP 

1360 ' 

1370 • AFFICHAGE BIJOUX/OBJETS 

1380 ' 



1390 PEN 6 

14013 FOR i = l TO obj(riR) 

1410 LOCATE objx(rm,i) objy(rn,i) 

1420 PRINT obj«; 

1430 NEXT 

1440 PEN 5 

1450 FOR 1=1 TO gens(rm) 

1460 LOCATE gemx (rm, i > , gemy (rm, i ) 

1470 PRINT gem*; 

1480 NEXT 

1490 PEN 1:L0CATE xp,yp:PRINT homtne*; 

1500 RETURN 

1510 xf=0:yf=0:PEN l 

1520 IF INKEY(0)O-1 OR INKEY(72)<>-1 THEN yf = -l 

1530 IF INKEY(2K>-1 OR INKEY(73X>-1 THEN yf = 1 

1540 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN x* = -l 

1550 IF INKEY(1K>-1 OR INKEY(75)<>-1 THEN xf = 1 

1560 IF xf*0 AND yt-0 THEN 1630 

1570 LOCATE xp+xf , yp+yf :ht*«COPYCHR* (#0) 

1580 IF ASC(ht$>>239 AND ASC(ht$)<246 THEN 1510 

1590 IF ht*<>" " THEN 1660 

1600 LOCATE xp,yp:PRINT" "j 

1610 PAPER 0:LOCATE 15,5:PRINT" ";:PAPER 8 

1620 xp=xp+xf iyp=yp+yf 

1630 LOCATE xp,yp:PRINT hom<ne«; 

1640 IF chien>0 THEN chien-chien NOD 2 + 1: IF chien=2 THEN 255 



1650 BOTO 1510 

1660 coup* INSTR (coup $,ht») : char =ASC ( M I D$( coup*, coup, 1) ) 

1670 ON coup SOTO 1690,1690,1690,1690,1750,1750,1850,1900,19 

70,2090,2650 

1680 GOTO 1600 

1690 IF coup>2 AND coup<5 THEN char»char-l 

1700 IF coup<3 THEN char=char+l 

1710 PEN 3:L0CATE xp+xf , yp+y* : PRINT CHR*(char); 

1720 lumiere(r<n)=lumiere<rin) XOR 1 

1730 IF lumiere(rm) THEN INK 7,10: INK 8,10 ELSE INK 7,0: INK 

8,0 

1740 GOTO 1510 

1750 IF xf<>0 AND yf<>0 THEN 1630 

1760 IF xf<0 THEN dirM ELSE IF x*>0 THEN dir=3 

1770 IF yf<0 THEN dir*l ELSE IF yf>0 THEN dir*2 

1780 IF dir(rm,dir)=-l THEN 1630 ELSE rm=dir (rm,dir ) 

1790 IF chien>0 THEN GOSUB 310 

1800 IF dir=l THEN xp»6:yp-fltaxy (rn) 



I II I 



) 



1810 IF dir=2 THEN xp=6: yp=miny (rm) 

1820 IF dir*3 THEN xp=minx (rm) syp=13 

1830 IF dir»4 THEN xp=maxx (rut) iyp = 13 

1840 RETURN 

18S0 IF xp>5 AND xp<8 THEN 1B80 

I860 IF xp<6 THEN dir=4 ELSE dir=3 

1870 GOTO 1780 

1880 IF yp>13 THEN dir=2 ELSE dir=l 

1890 GOTO 1780 

1900 PAPER 0:CLS:PEN 1 

1910 LOCATE 3,3:PRINT"vous vous en tirez 

1920 LOCATE 9, 55PRINT"avec" i 

1930 IF gems=vol THEN LOCATE 8,7sPRINT"T0UT !": ELSE LOCATE 

9,7 

1940 PRINT USING " ##"svol: 

1950 PEN 5:L0CATE 8,9:PRINT "Bijoux"; 

1960 «ort-l:RETURN 

1970 LOCATE xp,yp:PRINT " "5 :xp=xp+xf :yp=yp+y* 

1980 i-0 

1990 i=i+l 

2000 IF i>geme(rin) THEN 1510 

2010 IF genx (rm,i)Oxp OR gemy (rm, i )<>yp THEN 1990 

2020 IF isgenistrffi) THEN 2050 

2030 gemx (rm, i ) =gemx (rm, gems (rut) ) 

2040 gemy (rm, i ) =ge*y (rm,gens (rm) ) 

2050 gems (r m ) =gems(rm) -1 : vol=vol+t 

2060 MOVE 400,150+<volt2),l,l:DRAW 560, 150+ (vol!2) , 1 , 1 

2070 SOUND 129,248,10,12,0,1 

2080 GOTO 1980 

2090 bruit=INT(RNDtl5) 

2100 SOUND 1,3000, 10, bruit, 0,0, 10 

2110 PAPER 05LOCATE 15, 5s PRINT"CRACK! " } 8 PAPER 8 

2120 IF bruit<10 OR delais=50 THEN 1630 

2130 delais=delais-50 

2140 *eint=REMAIN(l> 

2150 AFTER delaist4,l GOSUB 310 

2160 SOTO 1630 

2170 ' 

2180 ' dessin des portes 

2190 ' 

2200 READ no,dr$ 

2210 IF dr$="V" THEN dr=2 ELSE dr=l 

2220 PEN 2 



2230 pic*=porte*(dr):GOSUB 25013 

2240 GOTO 1280 

2250 ' 

2260 ' dessin des fenetres 

2270 ' 

2280 READ no,wi« 

2290 IF wi*="V" THEN wi=2 ELSE wi-1 

2300 PEN 4 

2310 pic*=fenet*(wi):60SUB 2500 

2320 GOTO 1280 

2330 ' 

2340 ' tire les traits 

2350 ' 

2360 READ xl,yl,x2,y2 

2370 MOVE xi,yl,,0 

2380 DRAN x 1 , y2, , 0: DRAW x2,y2,,0 

2390 DRAW x2,yi,,0:DRAW x 1, yl , , 

2400 GOTO 1280 

2410 ' 

2420 ' dessine les interrupteurs 

2430 ' 

2440 READ no,sw* 

2450 IF sw**"L" THEN sw=l ELSE sw=2 

2460 PEN 3 

2470 pic*=inter*<sw,0>:GOSUB 2500 

2480 GOTO 1280 

2490 ' 

2500 ' affiche le caractere 

2510 ' 

2520 READ x,y:L0CATE x,y:PRINT pic*; 

2330 no=no-l:IF no>0 THEN 2520 

2540 RETURN 

2550 PEN 1:L0CATE chienx , chieny: PRINT" "; 

2560 homme$=CHR*(225) 

2570 IF (chienx=xp AND chieny=yp) OR (chienx*xp+xf AND chien 

y=yp+yf) THEN 2650 

2580 IF chienx<xp THEN chienx*chienx+l 

2590 IF chienx>xp THEN chienx=chienx-l 

2600 IF chieny<yp THEN chieny=chieny+l 

2610 IF chieny>yp THEN chieny=chieny-l 

2620 LOCATE chienx , chieny : PRINT chien*; 

2630 SOUND 1,8,RND*40, 10, 1,2,31 

2640 GOTO 1510 

2650 PRINT"SNAP!"; 



2660 mort=l: RETURN 

2670 DATA ENTREE 

2680 DATA L, 64, 308, 226, 4 

2690 DATA D, 2, H, 6,3,6, 22 

2700 DATA D, 2, V, 4, 12, 9,11 

2710 DATA S,l,L,4,ll 

2720 DATA S,1,R,9,14 

2730 DATA END 

2740 DATA SALON 

2750 DATA L, 2, 308, 258, 4 

2760 DATA D,1,V,10,12 

2770 DATA N,1,H,6,3 

2780 DATA W,1,V,2,12 

2790 DATA S, 2, R, 10, 1 1 , 10, 15 

2800 DATA END 

2810 DATA SALLE A HANGER 

2820 DATA L, 2, 308, 258, 4 

2830 DATA W,1,V,10,12 

2840 DATA N,1,H,6,3 

2830 DATA D,1,V,2,12 

2860 DATA S, 2, L, 2, 1 1 , 2, 15 

2870 DATA END 

2880 DATA CUISINE 

2890 DATA L, 2, 276, 384, 4 

2900 DATA D, 2, H, 6, 5, 6, 22 

2910 DATA W,1,H,10,22 

2920 DATA W,1,V,14,13 

2930 DATA D,i,V,2,13 

2940 DATA S,1,L,2,16 

2950 DATA END* 

2960 DATA LINGERIE 

2970 DATA L, 2, 276, 256, 4 

2980 DATA D,1,V,10,12 

2990 DATA S,l,R,10,lt 

3000 DATA END 

3010 DATA 5,4,8,21,0,4,3,2 

3020 DATA 3,4,9,21,-1,-1,1,-1 

3030 DATA 3,4,9,21,-1,-1,-1,1 

3040 DATA 3,6,13,21,1,0,-1,5 

3050 DATA 3,6,9,21,-1,-1,4-1 

3060 DATA L, 64, 308, 480, 100 

3070 DATA F, 250, 98, 294, 102 

3080 DATA F, 250, 306, 294, 310 

3090 DATA F, 390, 94, 430, 106 



3100 DATA F, 390, 302,430, 314 
3110 DATA F, 474, 240, 488, 270 
3120 DATA F.474, 124,488, 154 
3130 DATA F, 58, 240, 72, 270 
3140 DATA L, 226, 308, 322, 180 
3150 DATA L, 160, 180,480, 100 
3160 DATA 1,64,180,160,100 
3170 DATA END 



Si ces jeux vous ont plu, vous pouvez vous joindre au Club des utilisateurs 
AMSTRAD. Entre autres privileges et avantages, vous recevrez gratuite- 
ment le mensuel AMSTRAD qui publie programmes dejeu, utilitaires.fonc- 
tions speciales, bulletins de participation a des concours et des informations 
de derniere minute. 
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(Le premier numero renvoie au chapitre et le second a la page. Ainsi, pour 
la reference 1.42 reportez-vous au chapitre 1, page 42). 
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| A 1.42 1.72 5.7 

ABS 3.3 

AFTER 3.4 8.29 

Amorgage de la disquette 5.17 

Amplificateur (externe) 1.9 7.39 

AMSDOS 1.72 5.1 5.25 

AND 3.4 8.18 

AND (LOGO) 6.11 

Animation 53 

.APV 6.29 

ASC 3.5 

ASCII 6.7 7.8 7.21 

ASM 5.27 

ATN 3.5 

AUTO 2.10 3.5 



| B 1.42 1.72 5.8 

BASIC 1.22 3.1 7.32 8.7 

BF 6.7 

BINS 3.6 

Bit 8.9 

BK 6.18 

BL 6.7 

Boitier d'alimentation/modulateur MP2 1.3 1.5 1.65 

BOOTGEN 5.27 

BORDER 1.47 3.6 7.6 

Bouton EJECT 1.14 

BREAK 3.6 

BUTTONP 6.23 

BYE 6.6 6.26 



Calculs mixtes 1.36 

CALL 3.7 

Caracteres 1.53 7.9 7.43 8.14 

Caracteres ASCII 7.8 7.9 8.15 

Caracteres d'extension 3.37 7.22 

Caracteres de controle 7.3 8.51 

Caracteres definis par Tutilisateur 3.79 8.21 

(cas d'erreur etc..) (LOGO) 6.28 

Casque d'ecoute 1.9 

CAT 1.413.7 

CAT (cassette) 4.7 

CATCH 6.28 

Cercles 1.58 

CHAIN 3.7 

CHAIN (cassette) 4.9 

CHAIN MERGE 3.8 

CHAIN MERGE (cassette) 4.9 7.39 

Changement de disquette 5.2 7.31 

CHAR 6.7 

Chargement du logiciel 120 

Chargement du programme de bienvenue 1.21 

Checksum (Somme de controle) 8.32 

CHKDISC 1.76 5.22 

CHR$ 1.53 3.8 8.16 

CINT 3.8 

Clavier 1.15 7.21 7.22 7.23 7.43 

CLEAN 6.15 

CLEAR 3.9 

CLEAR INPUT 3.9 

CLG 3.9 

CLOAD 5.22 

CLOSEIN 2.10 3.10 

CLOSEIN (cassette) 4.10 

CLOSEOUT 2.9 3.10 

CLOSEOUT (cassette) 4.11 

CLS 1.22 3.10 7.4 

CO 6.26 

Code machine 7.7 

Codes de commande de la console (CP/M) 5.17 

Codes de controle 7.1 7.3 8.51 

Commande de hauteur d'image 1.4 

Commandes AMSDOS 5.7 

Commandes console 5.18 

Commandes de fichiers disquette (LOGO) 6.22 

Commandes de gestion de l'ecran (LOGO) 6.14 

Commandes de gestion de l'espace de travail (LOGO) 6.21 
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Commandes de manipulation des proprietes des listes (LOGO) 6.21 

Commandes de traitement de liste (LOGO) 6.7 

Commandes de traitement des cas d'exception (LOGO) 6.28 

Commandes des manettes de jeu (LOGO) 6.23 

Commandes directes de la console 5.18 

Commandes externes 5.7 7.30 

Commandes graphiques « tortue » (LOGO) 6.18 

Commandes graphiques (LOGO) 6.15 

Commandes sonores (LOGO) 6.25 

Commandes transitoires 5.20 

Commutateur de marche/arret 1.4 1.5 

CON 5.20 

Configuration d'une disquette 4.5 

Connexion au secteur 1.1 

Connexion de la prise secteur du systeme 1.1 

Connexion de peripheriques 1.7 7.38 7.39 7.40 7.41 

Connexions de Tordinateur 1.2 

CONT 3.10 7.29 

.CONTENTS 6.28 

Copie de disquettes 1.74 5.22 

Copie de fichiers 1.42 5.10 5.21 

COPYCHRS 3.11 

COPYDISC 1.75 5.22 

COS 3.11 

COS (LOGO) 6.10 

Couleurs 1.46 

Couleurs clignotantes 1.50 

COUNT 6.8 

CP/M 5.16 

| CP/M 1.39 5.8 

CREAL 3.11 

CS 6.16 

CSAVE 5.22 

CT 6.14 

CURSOR 3.12 7.3 



DATA 3.12 7.27 8.31 

DDT 5.27 

DECS 3.13 

.DEF 6.30 

DEF FN 3.13 7.29 

DEFINT 3.14 

DEFREAL 3.14 

DEFSTR 3.15 



DEG 3. 15 

DELETE 3 j 6 

.DEPOSIT """ ^29 

DERR 3.16 7.3i 7 . 32 

DI 3.17 8.30 

DIM 2.3 3.18 7.28 

IDIR 5. 8 

DIR (CP/M) 1.40 5.19 

DIR(LOGO) 6.22 

I DISC 1.73 5.8 

I DISC.IN 1.73 5. 8 

I DISC.OUT 1.73 5.8 

DISCCHK 1.76 5.22 

DISCCOPY 1.74 5.22 

Disque CP/M a demarrage automatique 4.4 

Disquette BASIC 42 

Disquette BASIC a demarrage automatique 4.3 

Disquette du CP/M 1.39 1.74 4.2 

Disquette du systeme 1.39 1.74 4.2 

Disquettes 1.1 1 1.38 4.1 

DOT 6.1 

Dr. LOGO 6 1 

DRAW 1.56 3.19 

DRAWR 3 19 

I DRIVE 5 9 

DUMP 5 27 



E/S 7.38 7.46 

Ecriture transparente 7 5 8 51 

ED 5.27 

EDIT 1.27 3.20 

Edition 1.27 

Edition (LOGO) 6.5 6!l4 

Edition avec le curseur de copie 1.28 

EI 3.20 8.30 

Elevation a une puissance 1.35 1.37 

ELSE 1.29 3.20 

EMPTYP 6.8 

En-tetes 5.3 5.12 5.13 

END 3.21 

END (LOGO) 6.13 

ENT 1.69 3.21 8.41 

ENT(LOGO) 6.25 

ENV 1.67 3.23 8.38 

ENV(LOGO) 6.25 



Enveloppe de tonalite 1.69 3.21 8.41 

Enveloppe de volume 1.67 3.23 8.38 

EOF(Fin de fichier) 3.25 4.10 5.7 7.29 

ER 6,21 

ERA 5,19 

| ERA 5.9 

ERASE 3.25 

ERL 3.25 

ERN 6.21 

ERR 3.26 7.32 

ERRACT 6.29 

Erreur de syntaxe 1.18 7.27 

Erreurs de lecture 4.8 

ERROR 3.26 

ERROR (LOGO) 6.28 

EVERY 3.27 8.29 

.EXAMINE 6.29 

EXP 3.27 

Exploitation des peripheriques 5.20 



FALSE 6.29 

FD 6.18 

FENCE 6.16 

Fichiers ASCII 1.43 3.71 5.11 7.29 

Fichiers binaires 1.43 3.71 

Fichiers en lecture seulement 5.11 5.23 7.31 

Fichiers proteges 1.43 3.71 

FILECOPY 4.2 

Files d'attente sonores 3.52 3.77 7.7 8.44 

FILL 1.60 3.27 8.48 

FIRST 6.8 

FIX 3.28 

Flux de commandes (LOGO) 6.26 

FN 3.28 

Fonctionnement des cassettes 1.7 1.73 4.7 5.22 

FOR 1.30 3.28 7.27 7.30 8.16 

FORMAT 1.40 5.25 

Format commercial 5.25 7.44 

Format d'impression 3.61 8.22 

Format de la disquette 1.38 1.40 7.44 

Format donnees seulement 5.25 7.75 

Format du systeme 5.25 7.44 

Format IBM 5.25 7.45 

Formatage d'impression 3.61 8.22 

FPUT 6.8 



H 



FRAME 1.55 3.29 

FRE 3.29 

FS 6.16 



Gestion du systeme 5.23 

GLIST 6.21 

GO 6.26 

GOSUB 1.31 3.30 7.27 

GOTO 1.24 3.30 

GPROP 6.22 

GRAPHICS PAPER 3.30 8.50 

GRAPHICS PEN 3.31 8.48 

Graphismes 1.53 8.47 

Grille de creation d'Enveloppe 7.37 

Grille de creation d'enveloppe sonore 7.37 

Grille de musique 7.37 

Grille ecran/mode 7.34 7.35 7.36 

Grilles 7.34 7.35 7.36 7.37 

Grilles fenetre 7.34 7.35 7.36 



Haut-parleurs (exterieurs) 1.9 

HEX$ 3.31 

HIMEM 3.32 

HT 6.18 



IF 1.28 3.32 

IF (LOGO) 6.26 

Imprimantes 1.8 7.41 7.42 7.43 

Indicateur ON 1.4 1.5 

INK (encre) 1.48 3.33 7.6 

INKEY 3.33 7.43 

INKEYS 2.12 3.34 7.43 

INP 3.34 

INPUT 1.25 2.2 3.35 7.28 

INPUT (cassette) 4.10 

Insertion des disquettes Ill 

Installation 11 

INSTR 2.5 3.36 

INT 3.36 



K 



INT (LOGO) 6.10 

Interruption des fonctions systeme 1.76 

Interruptions 7.7 8.29 

ITEM 6.9 



Jockers 5.4 

JOY 3.37 7.43 



KEY 3.37 7.22 

KEYDEF 3.38 7.22 7.43 

KEYP 6.23 



LABEL 6.27 

Lancement du programme de Bienvenue 1.21 

LEFTS 3.39 

LEN 2.8 3.39 

LET 3.39 

Lignes en pointilles 3.43 8.49 

LINE INPUT 3.40 

LINE INPUT (cassette) 4.10 

LIST 1.23 3.40 

LIST (LOGO) 6.9 

LOAD 1.42 3.41 

LOAD (cassette) 4.9 

LOAD (LOGO) 6.23 

LOCAL 6.13 

LOCATE 1.53 4.41 7.6 

LOG 4.42 

LOG10 3.42 

Logiciel 1.20 

Logique 8.18 

LOGO 6.1 

(LOGO) 6.21 

LOWERS 3.42 

LST 5.20 

LT 6.18 

Lutins (sprites) 8.54 



M 



N 



O 



MAKE 6.13 

Manettes de jeu 1.7 7.21 7.23 7.43 

MASK 3.43 8.49 

Materiel 7.45 7.46 8.56 

MAX 3.43 

MEMORY 3.44 7.27 

Menu 2.5 3.51 3.52 

MERGE 3.44 

MERGE (cassette) 4.9 

Message a la mise sous tension 1.4 1.5 

Messages d'erreur 7.27 

Messages d'erreur AMSDOS 5.14 7.31 7.32 

Messages d'erreur AMSDOS 5.14 7.31 7.32 

MID$ 3.44 

MIN 3.45 

Mise en attente d'un canal sonore 3.73 8.38 

Mise sous tension 1.4 1.5 

MOD 1.34 3.46 

MODE 1.45 3.46 7.3 

Modes de couleur d'encre 7.5 8.52 

Moniteur 1-2 

Mots cles 1.22 3.1 7.32 

MOVCPM 5.26 

MOVE 1.57 3.47 

MOVER 3.47 



NEW 3.48 

NEXT 1.30 3.48 7.27 7.30 8.16 

NODES 6.6 6.21 

Nom de fichiers 1.41 5.2 5.3 5.18 

Nombres aleatoires 3.69 

Nombres binaires 8.9 

Nombres hexadecimaux 8.11 

Noms de fichier AMSDOS 5.2 5.3 

Noms de fichier CP/M 5.18 

NOT 3.48 8.20 

NOT (LOGO) 6.11 

Notes de musique 7.24 

Numeros d'erreur 7.27 



Octet 8.9 



ON BREAK CONT • 3.49 

ON BREAK GOSUB 3-49 

ON BREAK STOP 3.50 

ON ERROR GOTO 3.50 7.29 7.32 

ON GOSUB 2.10 3.51 

ON GOTO 3.52 

ON SQ GOSUB 3.52 7.7 8.44 

OP 6.27 

OPENIN 2.10 3.53 7.29 7.30 

OPENIN (cassette) 4.10 

OPENOUT 2.9 3.53 7.30 

OPENOUT (cassette) • •••••— 4.1 1 

Operateurs •• 1-33 8.18 

Operations arithmetiques 1-33 7.27 7.28 

Operations arithmetiques (LOGO) • •• 6.10 

Operations logiques (LOGO) 6.11 

OR 3.54 8.19 

OR (LOGO) 6.12 

Organisation des disquettes 7.44 

ORIGIN 1 59 3.54 

OUT 3 - 55 



PADDLE , 6 - 24 

PAL 6.16 

PAJ>ErZZZIIZZ 1.47 3.55 7.4 

PAUSE 6.28 

PD • 6.18 

PE 6.19 

PEEK 3.56 

PEN 1-47 3.56 7.15 

Peripheriques !•' 

PI 3.57 

PIP 5.20 

Pistes reservees a CP/M 5.17 

Pistes systeme (CP/M) 5.17 

PLIST 6.22 

PLOT 1.56 3.57 

PLOTR 3.58 

PO 6.13 

POKE 3,58 

POS 3.59 4.10 

POTS 6.13 

PPROP 6.22 

PR 6.14 

Primitives 6.7 



Primitives systeme (LOGO) 6.28 

PRINT 1-22 3.59 8.22 

PRINT SPC 3.60 8.23 

PRINT TAB 3.60 8.23 

PRINT USING 3.61 8.23 

Prise CC 1-2 1-3 

Prise DISC DRIVE 2 1.9 7.40 

Prise EXPANSION 1.10 7.40 

Prise JOYSTICK 1-7 7.38 

Prise MONITOR 1-2 1.3 7.39 

Prise PRINTER 1-8 7.4 

Prise STEREO 1-9 1.65 7.39 

Prise TAPE 1-7 7.39 

.PRM 6.30 

Procedures 6.3 6.13 

Programme de Bienvenue 1-21 

Programme ROINTIME.DEM 1-20 

Programmes EX1 et EX2 5.5 

Proprietes systeme (LOGO) 6.29 

Protection contre l'ecriture 112 

PU 6.19 

PUN 5 -20 

PX 6.19 



Racine carree 1-34 3.77 

Racine cubique 1-35 

RAD 3.64 

RANDOM 6.10 

RANDOMIZE 3.64 

RAZ des canaux sonores 3.73 8.38 

RC 6.24 

RDR 5 -20 

READ 3.64 7.27 7.28 8.31 

Recepteur TV 1-3 1-5 

RECYCLE 6.6 6.21 

REDEFP 6.29 

Reglage de brillance (BRIGHTNESS) 1.4 

Reglage du contraste (CONTRAST) 14 

Reglage du VOLUME 1-9 1.65 

Reinitialisation de Tordinateur 1-20 1.21 

RELEASE 3.65 8.43 

RELEASE (LOGO) 6.25 

REM 1.30 2.2 3.65 

REMAIN 3.66 8.30 

REMPROP 6.22 



REN 5.9 

I REN 5.19 

Rendez-vous (canaux sonores) 3.73 8.37 

RENUM 3.66 

REPEAT 6.2 

Repertoire de la disquette 5.1 7.31 

RESTORE 3.67 8.33 

RESUME 3.67 7.29 

RESUME NEXT 3.68 

RETURN 1.31 3.68 7.27 

RIGHTS 3.69 

RL 6.24 

RND 3.69 

ROMS d'extension 7.46 

ROUND 3.70 

RQ 6.25 

RT 6.19 

RUN 1.23 1.42 3.70 

RUN (cassette) 4.9 

RUN (LOGO) 6.27 



Sauvegarde de la disquette maitresse 1.74 1.75 4.1 

Sauvegarde des variables 2.9 3!90 5.5 

Sauvegarde sur cassette 4.12 

SAVE 1.41 1.43 3.71 

SAVE (cassette) 4.13 

SAVE(CP/M) 5.18 

SAVE (LOGO) 6.23 

SE 6.9 

Sectorisation 5.17 

SETH 6.19 

SETPAL 6.16 

SETPC 6.20 

SETPOS 6.20 

SETSPLIT 6.15 

SETUP 5.24 

SF 6.17 

SGN 3.72 

SHOW 6.15 

SIN 3.72 

SIN (LOGO) 6.10 

SOUND 1.65 3.73 7.24 8.35 

SOUND (LOGO) 6.25 

SPACES 3.75 

SPC 3.75 8.23 



SPEED INK 3.75 

SPEEDKEY 3.76 

SPEED WRITE 3.76 4.13 

SQ 3.77 8.45 

SQR 1.34 3.77 

SS 6.17 

ST : 6.20 

STAT 5.23 

STEP 3.78 

Stereo 1.9 1-65 7.39 

STOP 3.78 

STOP (LOGO) 6.27 

STR$ 3.78 

STRINGS 3.79 

SUBMIT 5.27 

SWAP 3.79 

SYMBOL 3.79 7.5 8.21 

SYMBOL AFTER 3.81 

Synthetiseur de parole 1-10 

SYSGEN 5.26 



TAB 3.82 8.23 

Tableaux 2.3 3.18 3.25 7.28 

Tableaux de copie de fichiers 5.12 5.13 

TAG 3.82 8.50 

TAGOFF 3.83 8.50 

TAN 3.83 

| TAPE 1-73 5.9 

| TAPE.IN 1-73 5.10 

| TAPE.OUT 1 73 5.10 

TEST 3.84 

TESTR 3.84 

TF 6.20 

then'".."'.::'.":.:" 1.28 3.84 

THROW 6.28 

TIME 3.85 

TO 3.85 

TO (LOGO) 6.14 

TOPLEVEL 6.29 

Topographie de la memoire 7.45 

Touche CAPS LOCK (majuscules) 116 

ToucheCLR 117 

Touche COPY 1-28 

Touche DEL 115 

Touche ENTE 115 1.18 



u 



w 



Touche ESC 1.17 

Touches definies par Tutilisateur 3.37 7.21 7.22 7.23 

Touches du curseur 1.15 

Touches SHIFT 1.15 

TROFF 3.86 

TRON 3.86 

TRUE 6.29 

TS 6.15 

TYPE(CP/M) 5.19 

TYPE (LOGO) ; 6.15 

Types de fichiers 5.2 



Unite de disquette supplemental 1.8 1.75 7.40 

UNT 3.86 

UPPERS 3.86 

I USER 5.10 

USING 3.87 8.23 



VAL 3.87 

Variables 1.25 7.32 8.15 

Variables (LOGO) 6.4 6.13 

Variables (sauvegarde) 2.9 3.90 5.5 

Variables chaine 1.25 7.28 

Variables systeme (LOGO) 6.29 

Verification des disquettes 1.76 5.22 

Vibrato 8.42 

Vidage de l'ecran 1.44 3.71 5.5 

Voyant de la disquette 1 14 

VPOS 3.87 



WAIT 3.88 

WAIT (LOGO) 6.27 

WEND 3.88 7.30 

WHILE 3.88 7.27 7.30 

WIDTH 3.89 

WINDOW 2.11 3.89 7.5 8.26 

WINDOW (LOGO) 6.17 

WINDOW SWAP 3 90 8 27 

WORD 6 9 



X 



WORDP 6.9 

WRAP 6.17 

WRITE 2.9 3.90 8.23 



XOR 3.91 8.20 

XPOS 3.92 

XSUB 5.27 



Y 

YPOS 3.92 

Z 

ZONE 3.92 8.22 



